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PC ファミリー•テクニカル•ノウ八ウ集 

全3巻の構成 


この 「 PC ファミリー•テクニカル • ノウハウ集」は 、 NECr —ソナルコンピュー 

夕 PC ファミリー （ PC - 8000シリーズ、 PC - 6000シリーズ、 PC - 8800シリーズ）を徹底 
的に活用するためのテクニカル.ノウハウ （Tech Know テクノウ）をまとめたもので、以 
下の全3巻で構成されます。 

第1巻 PC - 8000シリーズ編 

「PC - Tech Know 8000」 

第2卷 PC -6000 シリーズ編 

「 PC - Tech Know 6000」 

第3卷 PC - 8800シリーズ編 

r P C - Tech Know 8800」 

各巻には、それぞれの BASIC の内部構造から、カセットおよびディスク•ファイルをう 
まく使う方法、機械語理解のポイント、さらに BASIC プログラムのテクニックなどが満載 
されています。本書は、第1巻の PC - 8000シリーズ編 「 PC-Tech Know 8000」であり、第 
2巻、3巻は順次、発刊予定です。 

なお、本書で解説されている N - BASIC および機械語のプログラムは 、 BASIC VerLO , 
Verl . l 、 Verl _2( PC -8801) のいずれのパ™ジョンにも適用できます。 


はじめに 


パーソナルコンピュータが、 名実ともに、 パーソナル として誰でも気軽に使えるように 
なった現在、書店には、その人門書、教本の類があふれ、 PC - 8000シリーズに関するもの 
も数多く見受けられます。 

しかし、そういう入門書、マニュアルに一通り目を通した人にとって、これらの本に対 
し、基本的なことしか書かれていないその内容に対するもの足りなさや、数々の疑問が解 
き明かされないもどかしさを感じられることと思います。 

かといって、アセンブラ言語などの機械語をやろうとすると、 BASIC とのギャップを感 
じ、思うにまかせないものです。 

本書は、こういう 方々のために、 マニュアルには 書かれて いない ことを中心に、 N-BASIC 
や Disk BASIC の内部構造、プログラミングのテクニックなど 、 P C -8000 シリーズを徹底 
的に活用するためのテクニカル.ノウハウ、さらに、機械語を利用するための手助けとな 
る内容などを、まとめたものです。 

限られたページの中で、充分意を尽すことはできませんが、読者の方々自らによる、内 
容の 補完により、 パーソナルコンピュータ に対する理解をより深めていただき、その利用 
技術を高めることに、役立つものと確信します。 

パーソナルコンピュータを使いこなすための座右の書として利用していただければ幸い 
に存じます。 

なお、本書の原稿作成に際しては、田川嘉隆氏、平松達雄氏および栗山浩一氏と共同執 
筆を行ない、システムソフト•スタッフが編集および監修を担当致しました。また、出版 
については、株式会社システムソフト福岡の樺島正博社長ならびに藤田英時出版部長に大 
変御世話になりました。ここに厚く御礼申し上げます。 


1982年1月 

著者代表牟田慎一郎 
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第 1 章 N -巳 ASIC の内部構造 


1 一 1 メモ U マツフ 
1 一 2 ユーザー スエ 1 」ア 

1-3 フ□クラムの格納状態 
1 -4 ブ□クラムの回復のさせ方 
1-5 中間言語 
1 -6 中間言語処理ルーチン 
1-7 識別コード 
1-8 単純変数領域 
1 -9配列変数領域 
1-10文字変数と文字列領域 

1-11 フ U —エリア 
1 -12 メモ 1 」タンブ U スト 
1 -13 複数フ□クラムの□ード 
1 -14 プ□クラムのアペンド 





Ieaoo 

F 300 

FEB 8 

FFFF 


一市販のは粘度関数 ROM 、 スクリーンコビ_ 
ROM その他のプログラムを_き込んだ 
^ ROM のエリア。 


_ BASIC のプログラムがここに格納される。 
_ 16 K ： システムの場合は C 000 番地から。 


単純数値変数と単純文字変数のポインタ。 
配列数値変数と配列文字変数のポインタ。 


CLEAR 文卽ハラメータで確保される文卞領域 

ディスクを使用している場合は、この間を 
DiskBASIC およびバッファなどが占有。 

この部分に入っているデータが画面に表示。 


1.メモ 1 J マツフ 

PC — 8001内部のメモリ空間は、 64 K バイトあり、前半 32 K バイトが ROM 、 後半32 


K ノぐイトが RAM に割当てられ、それぞれ下図のようになっています 


〇 


〔図表卜彳〕メモリマップ 


16 進アドレス 


内容 


0000 


第1章 N - BASIC の内部構造 


N-BASIC 

ROM 

24 K 


拡張 ROM エリア 

8 K 


プログラムエリア 

( BASIC テキスト） 


単純変数エリア 


配列変数エリア 


フリーエリア 


スタック 


文字変数 


ワークエリア 


スクリーンエリア 


ワークエリア 



ユ ー ザ ー スエリア 
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〔図表1~ 2〕 


2 •ユーザーズエリア 

ユーザー が プロ グラムを作って実 
際に 使用す る エリアは、 32 K システム 

の場合8 0 0 〇番地から E 9 FF 番地ま 


8021 

( C 021) 



拡張 

ROM 領域 



( EB 54,55) 


プ〇グラム 
領域 


での約26, 5 K バイト、 16 K システム 

の場合、 C 0 0 0 番地からの約 10.5 K 
バイトです。各領域は、右図に示す 
アドレスにそのポインタが格納され 
ています。 

プログラム作成前後、および、実 
後についてそのポインタの変化に 
ついて調べることによってメモリが 
どのように使われていくかを確認す 
ることができます。以後 32 K システ 
ムの場合を例にとって説明していき 
ます。 



PRINT FRE ( O ) 
で示される範囲 




変数領域 


ベ EFAO ’ Al ) 


^ 配列変数 
領域 



jv スタック 


(EFA2 f A3) 
(EFA4 f A5) 


( EB 50,50 




文字列領域 

[ 文字列 M 域は特に 


CLEAR 文を実行 

T < 

I しなければ 300 バイト 

錄.ワーク xu ア^ 

L (EF5 も 55) 


ポインタの内容を調べる方法として、下記の2通 1 )がありますが、一般に1の方法が便 
利です。 

1 . モニタモードで“ D ” コマンドによる方法 

mon 

XDEFA0 

EFA0 78 80 86 80 C2 80 20 88 04 04 04 04 04 64 04 04 


2. BASIC モードで “ peek ” による方法 


print hext<peeK <icheb55) 关 256+ peek <8>cheb54)) 
8821 
Ok 


実際に下記のサンプルプログラムで'電源 ON 時、プロダラム実行前、実行後におけるボイ 
ンタの変化を調べてみましよう。 


list 

100 REM カク 1 
110 DIM C く 12) 

120 INPUT 

130 INPUT "B= 11 ;B:C<0)=AXB 
140 PRINT ,l AxB= H ;C<0> 

150 END 
Ok 


run 

A= ? 256 
B= ?16 
AxB= 4096 
Ok 
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〔図表1 一3〕各ポインタの変仆: 



ポインタ 

アドレス 

電源 O N 時 
( RESET ) 

プログラム 
実饤刖 

ブログラム 
実行後 


プログラム 
開始アドレス 

EB 54,55 

8021 

ブログラム 

領域 

単純変数領域 

配列変数領域 

文字列領域 
(300 バイト） 

変数領域 
の始まり 

EFAO , A 1 

8023 

8078 

配列変数領域 
の始まり 

EFA 2， A 3 

8023 

8078 

8086 

フリーエリア 

の始まり 

EFA 4， A 5 

8023 

8078 

80 C 2 

スタック 
の始まり注） 

EB 50,51 

E 8 D 3 

文字列領域 
の始まり注） 

EF 54,55 

E 9 FF 


注 )1, CLEAR 文を実行すると、このポインタが書き替えられます。 

例 : CLEAR 1000, &HBFFF 実行後 EB50, 51 は BC17(BFFF— 1000) に、 EF54,55 は BFFF になります。 
2, Disk BASIC 起動時は 、 How many files (0 〜 15)? で指定する File 数により蛮化します。 

例 ■: File 数 3 のとき EB 50,51 は CDEE(Clear300 のとき） EF54,55 は CF1A になります。 

上の表の内容は、モニタモードで次のようにして調べることができます C 

①電源 ON 時 


mon 
关 DEB50 

EB58 D3 E8 FF FF 2180 20 B7 00 00 00 BB DE DD 00 00 
夫 DEF50 

EF50 00 00 00 00 FF E? 58 EF 05 60 3B 00 86 00 00 00 
XDEFA0 

EFA0 23 80 23 80 23 80 20 80 04 04 84 04 04 04 04 04 

关 


15 




mon 

XD8028 

8020 00 
3030 00 
8640 41 
8850 28 
8060 8C 
8070 76 
8680 00 
8098 00 
88A0 00 

80 B 0 ee 

80C0 06 


②プログラム実行刖 

mon 

XDEB50 

EB50 D3 E8 FF FF 21 80 20 B7 00 00 00 8F IB 29 22 4C 
关 DEF50 

EF50 00 00 06 00 FF E9 58 EF 05 60 3B 00 00 00 08 00 
XDEFA0 

EFA0 78 80 78 80 78 80 20 80 04 04 04 04 04 04 04 04 


⑧プ a グラム実行後 

mon 

XDEB50 

EB50 D3 E8 FF FF 21 80 20 B7 00 00 00 0F IB 29 22 4C 
关 DEF50 

EF50 00 00 00 00 FF E9 58 EF 05 60 3B 00 00 00 00 00 
XDEFA0 

EFA0 78 80 86 80 C2 80 20 80 04 04 04 04 04 04 04 04 

关 


1-3 .ブ□グラムの格納状態 

前記サンプルプログラムがメモリ内にどういう形で格納されているか調べてみましよう 


〔図表1 一 4〕 


夕 

ン 

V 

ポ 

ク 

ン 


夕 

ン 

V 

ボ 

ク 


E 2 D 0 0 4 0 0 
62380000 

0 9 9 0 0 
7 2 8 0 0 


0 0 0 

0 0 0 0 0 0 


-0 0 2 
8 2 4 


0 0 0 
0 0 0 


< 


ン 952 0 1 0 0 0 0 0 
リ 13820100000 


終} 0 0 0 2 8 

の1 0 0 2 4 2 

行 


0 

0 


0 P 0 00 0 
0 0 0 0 0 0 


fD 8553010000 
D78F 4000 


0 0 0 


E001B1 00000 
D 8043400 


0 0 0 


B 7212070000 
B48F 2030000 


語 

言 ？ 0 0 

間 j B 0 8 


9D 430000 


中 


0 

0 


6 9 E 
B 2 5 


23040000 

12000000 

14000000 


0 


C 088040000 
8027008080 


FF1 31050000 


0 

80444080000 


f08BA 210 0 
号 02332800 


0 0 0 
0 0 0 


押 W 
6 


F 

C 

0 

8 


3220000000 

4242000000 


0 0 0 
8 2 2 

D 6 D 
2 8 3 


Bi 600000 
39900000 

2002D 000 
20848000 
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メモリの 1 つ 1 つは次のような意味を持っています。 


〔図表1 -5〕 













夕 

一 

デ 

ス 

レ 

ド 

ア 


6 9 BED 
B BBD D 


E 


F C 


E 〇 
5 8 


6 0 
7 8 


012345678 91 'BCDEFOI 23456789 A 7 8 E F □ 1 678 

2222 222222222222 3 33333333 3 3 44 5 5 . 771, 777 

0000000 0 00000 0 00000 000 0 0000 〇 〇 〇 〇 〇 〇 〇 〇 〇 




〇 


IL 

〇 

2 




r^L 

〇 


1L 

50 




















~ テ" F レス 8078 

20 80 84 04 04 04 04 04 04 04 


mon 

XD 8029 i 807 F 
8020 00 00 00 
8030 00 86 20 
8040 413 D 20 
8050 20 22 3 B 
8060 8 C 00 85 
8670 [76"80]96 
XDEFA 0 ^ 
EFA 0 [23 80 

关 


リンクポインタが、00,00になったところがプログラムの終わりを示し、その次のアドレ 
ス（例では8 0 7 8番地）からが変数領域となります。 


1-4. ブ□グラムの回復のさせ方 

作ったプログラムが次のような原因でリストも実行もできなくなったり、途中または最 
後までリストできるが、修正も実行もできない場合があります。 

1. NEW を実行したとき。 

2. プログラム（とくに機械語を含んだ）が暴走し、 RESET せざるを得なくなったかまた 
は RESET したとき。 

3. カセットに保存しようとして、誤って CLOAD を実行したとき。 

4. Disk を起動せずに作ったプログラムを、 Disk へ入れるため、 RESET ボタンを押し 
て Disk を起動したとき。 

このような場合、プログラム本体はメモリ内に残っており、次に示すポインタが初期値に 
戻っているだけです。 

最初のリンクポインタ（8021，22番地の内容）一>00, 00 
変数領域の始まり （ EFA 0， A 1 番地の内容） 一 ~^23，80 
配列変数領域の始まり （ EFA 2， A 3 番地の内容）一^23, 80 
フリーエリアの始まり （ EFA 4， A 5 番地の内容）一^23，80 

実際に NEW を実行してメモリ内を見てみましょう。 

1 1st 

100 REH カヴサ％ン 
116 DIM C(12) 

120 INPUT H A= H ;A 

130 INPUT "B= ";B:C(0)=A^B 

140 PRINT ,, AxB= , * ;C(0) 

150 END 
Ok 

new 

Ok 


23 80 23 80 


E 2 D;0;0 0 
6 2 3; 8 』0 0 

! J 一一 

0-0 2*0-9 0 

8 ;2 4iz2 0 

■r_ _ J 

另 5 2 0 1 0 
3^8 2 0 10 


0 0 0 2 8 0 
0 0 2 4 2 8 

D 8 5 5 3 0 
D 7 8 F 4 0 


E 

D 

B 

B 

? 

B 


0;0 1 B 0 
8-0 4 3 0 


7:212 
4j8 F 2 

I i 11 ^ 

0 -0- oy o 

0 - 8-2 3 


6 9E 
B 2:5 


0 

0 


12-0 
1 


0 c 0 8 8 

2 0 0 2 7 


;0 

-0 


F F 1 3 1 0 
8 0 4 4 4 0 

0 3 B A 21 
0 2 3 3 2 8 


4 3 2 2 0 0 
64 2 4 2 0 
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mon 

关 D8020 ? 804F 
8020 @0 2D 80 64 
8030 00 42 24 FI 
8040 20 42 24 00 

关 


!_] で囲んだ部分が初期値に戻っているのがわかります。 

回復させるためには、次のようにします。 

1. 8021，22番地に次のリンクポインタの先頭アドレス（例で、は 802 D ) を入れる。 

2. £卩八0，八1，£卩九2，八3，£卩众4，八5にそれぞれ最後のリンクポインタ（00,00)の次の 
アドレス（変数領域の始まるアドレス、例では 8078 ) を人れる。 

mon 

关 S8021 

8821 00-2D 08-80 64- 
关 SEFA0 

EFA0 23-78 80-80 23-78 80-80 23-78 80-80 20 - 

关 

8021，22に入れるべきアドレスは、最初の行の終わりを示す、'〇〇"の次のアドレスであり、 
更にそのリンクポインタが次のリンクポインタの先頭のアドレスを指しているかどうかで 

確認します。 

また、 EFA 0 〜 A 5 に入れるべき変数領域の始まりのアドレスは、行の終わりを示す 10" 
とプログラムの終わりを示す\ % 00,00"のリンクポインタと都合3バイトの、、 00" が並んで 
いる次のアドレスであり 、、'00,00 v のリンクボインタの先頭を、一つ前のリンクポインタが 
指しているかどうかで確認します。 

以上4ケ所 （8 バイト）を書き込んだあと list すれば、見ごとプログラムが復活してい 
るはずです。 


1-5 .中間言語 

BASIC で使用する KEY WORD は、メモリ節約や処理速度向上のため、プログラムエリ 
ア内へは、1〜2バイトに短縮されたコードすなわち中間言語で記憶されています。 

1 i st 

100 WIDTH 80，20 
110 B*=CHR*(12) 

120 PRINT 6¢ 

Ok 


hi i 
6 ? 


0 

0 


0 0 0 
8 0 0 

B 80 
3 7 0 

0 0 0 
080 

44 
1 4 


9. 

E 


F 0 F 
0 0 F 

c 91 

2 2 0 

0 c 2 

5 0 4 

F F 0 
0 0 0 


0 

2 


8 3 
2 0 


0 6 
A 9 

0 F 
8 F 


0 

0 

0 

0 


19 



このプログラム例では、次のようになっています。 


WIDTH 

A 0 

"Pi 

FI 

CHR $ 

FF 96 

PRINT 

91 


KEY WORD と中間言語の対応表は、 BASIC ROM 内の34 F 5番地から37 BB 番地まで 

DATA としてアルファべット順に入っています。 


〔図表卜6〕 DATA の形式 

2文字目以降 |—短縮コード（中間言語) 

- . .A. 

广—— ---^ 



i 



: 次の データ 


奉 


最後の文字は、最上位ビットが！になっています。 


頭の1文字は省略されています。 


実際にダンプリストを見て、調べてみましょう 


〔図表卜7〕 


mon 

关 D34F0 


AND ABS ATN ASC 


34F0 37 A6 37 A7 3?[4E C:4]F8"p2 D3106l[54 CEI 0E]f53 C3 


''A" 

頭文字は省略されていて、 
最初は、 " A " から始まり〇〇 
があると1つ進んで '' B " 
となります。 


D 


N %- J 

中間言語コード ……… F 8 
KEY WORD の M 後の文卞 
の次の1バイトが中間言語 
! コードです。 


中間言語コード……06 
これは、 中間言語コード F 
F _86 を意味します。 

80 H 未満の中間言語コード 
は、識別子などと区別する 


この KEY WORD の最後 
の文字を表わします。 
最後の文字であることを他 
の文字と区別するために、 
最上位ビット（第7ビット） 
を1にしてあります。 


010 0 

L _________._, 

010 0 

V _ 

110 0 

010 0 


._44 H '' D " 

•• C 4 H 


ために、 ユーザ プログラム 
エリアへは、最上位ビット 
(第7ビット）か1にして、 


0 0 0 0 

0110 

1 一 

10 0 0 

0110 


•06 H 
-86 H 


更に、その前に FFH を付 
け加えて、 FF 46 として格 
納されます。 
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mon 

^ D 34 C 0,34 FF 
34 C @ F 0 F 5 34 0 B 
3400 35 F 5 35 23 
34 E 0 36 E 5 36 Ed 

34 F 0 37 A6 37 A 7 
¥ 


C = ASC < u h h ) : FOR AD =^ H 34 C 1 TO ^ H 34 F 3 STEP 2 
PRINTCHR 车〇二：） 1 . . . . . M HEX - f ( PEEK ( AD > + PEEKAD + D M 256) 
[•=[:+ 1 : NEXT 


34 C 1 番地より ABC 順に 2 バイトづつのアドレスが26組格納されています。 
表にすると次のようになります。 

見方……例えば V G 〃で始まる KEY WORD ( GOTO など）の中間言語対応デ 

—夕は t 35 DE 番地から始まっていることを表わします。 


A . … . 34 F 5 
B 350 B 

C •…,3514 

D .355 E 

E ……3590 


F 

e 

H 


35 BE 

35 DE 

35 F 8 

35 F 5 


J 

K 


霹 


M 

N 


P 

Q 

R 


3623 

3624 
362 C 
3672 
369 B 
3 6AA 
d BA 


36 E 5 

36 E 6 



W 

*, ド 


Z 


1 

575 C 


3780 

373? 

3793 

37A2 

蠡 -awB^jl _ ■ 

5 


57 A 7 


上記の表を出力するプログラムは次のとおりです 


〇 


AUTO 


ATTR $ 


BCD $ 


55 54 

CF A ? 

54 54 52 A 4 E 7 

jrm tav 

43 44 A 4 IE 

45 


このセパレー タにより、以 

降の KEY WORD は、次の 
"00" が現れるまで頭文字は 
'' B 〃となります。 


また、この中間言語対応表について、 34 C 1 〜 34 F 4 番地にその index 部分があります 


〇 


0 0 0 
0 1 2 


0 H 2 3 

fba c 

5 6 7 3 
3 3 3 5 

EH 3 E 

D AM 9 0 

5 6 7 E 
3 3 3 c 


E B9 4 
B ? 8 5 



D 2 0 3 
9 . 7 fy D 


5 6 7 2 
3 3 3 4 

E c c 8 

5 2 5 F 

5 6 7 4 

3 3 3c 

4 4 1 E 
12 2 4 

5 ,6 6 7 
3 3 3 3 
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AND 

ABS 

ATM 

ASC 

AUTO 

ATTRt 

BCD$ 

BEEP 

CONSOLE 

CLOSE ： 

CONT 

CLEAR 

CLOAD 

CSAME 

CSR し IN 

CINT 

CSNG 

CDBL 

CM I 

CMS 

CUD 

cos 

CHR 嚷 

CMD 
CO し OR 
DATA 
DIM 

DEFSTR 
OEFIMT 
DEFSMG 
DEFDB し 
[V3KC : ゆ 
OEF 

DELETE 

OSKI ^ 

DSKF 

DEC 

DATE 李 . 
END 


次のプログラムで key word と中間言語の対応表を出力してみてください。 


100 A*ASC< II A ,I > : AD-^H34F5 
110 KW^CHR$(A) 

120 KW^PEEKCAD) : IF KW=0 THEN A=A+1 : AD-AD+1sGOTO110 
130 IF KW くも H88 THEN KW^=KN^+CHR^<KW) : AD=AD+1;60T0 120 
140 KW^=KW^+CHR^< KW-&cH80> : AD=AD+ 1 : C=PEEK<AD> 

150 IFCCi く H80 THEN 0¢= 11 FF "+HEX^(C+acH80) : AC*= lf • 11 +CHR*<C+&cH30) :GOTO 170 
160 C^=HEX^(C) s IF C<^HF8 THEN AC^=CHR^(C) ELSE AC$= B ,，_ 

170 PRINT KWt;TAB<8> ;C^;TAB<15);AC^ 

180 AD=AD+1:IF ADC&H37BB THEN i10 


中間言語表 （ A . B . C 順) 


E し SE 

ERASE 

ERROR 

ERL 

ERR 

EXP 

EOF 

EQ ソ 

FORMAT 

FOR 

FIELD 

FILES 

FN 

FRE 

FIX 

FPOS 

GOTO 

GO TO 

GDSUB 

GET 
HEX 车 

INPUT 

IF 

IM3TR 
1 NT 

INP 
I HP 

IN IT 
INKEY 李 
I SET 
I RESET 
IEEE 
KILL 
KEY 

LET 

LOCATE 

LINE 

LOAD 


し SET 
LPRINT 
LL 1ST 
し POS 
LISTEN 

し I ST 

し FILES 

LOG 

IOC 

し eN 
し E ： FT 令， 

し OF 
MOUNT 

MERGE 

MOD 

MKI 冬 

M K S 守 . 
MKDt 
MI D $- 

MOTOR 

MON 

MAT 

NEXT 

NAME 

NEW 

NOT 

OUT 

ON 

OPEN 

OR 

OC ' l % 

PUT 

POKE ： 

PRINT 

POS 

PEEK 

PORT 

PO しし 



0 


■ 


_ 


ヴ 



_ 


■■ィ 


\1 

t— 


L 


■ 



1 


c ノ 


«w K F ュ 


ヲ 


_ 




* 


A レ 

s 


E 5 
8 9 


E 

9 


F 0 1 3 4 5 c 6 
9 A A A A A 8 ? 


6 D 
A 9 




8 8AAAAC 9 A E F F E 0:_ 


三 


チ 


f 


フ 


t' p 1 


rf 


字 ^ • 


镰 


_ 


4V 


a 


_ 


a 


J 


8 


A821 *y 
3 A 9 • 8 :M 


B c O 3 

A A A 8 


9 

9 


i fS* c 

9 9-9 


0 D E i 1 3 3 F F F F F 4 
D 9 9 ! c 9 D F F F F F c 


c D FFF F 
c F F F F F 


? 7 0 3 E 4 E c 5 5 ? F 8 81 F r F A 
B B C8C 9 D?yc F LLC99F F F B 



B 7 F 2 A A 5 0 c 

8A8 A A 9f 8 ? 卜 

^ ^ F 0 F F 8 3 2 6 o c F F F ? 9 D 7 F 5 B 3 F F c 4 9 o E r F 4 8 5 F B 
A A c E F F F B ow c c D F F F 8 8 8 こ Fa.8 E F F F D EBB F c CQ 8 D A c 
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PSET B1 
PRESET BO 
POINT EF 
READ 87 
R UN 3 A 

RESTORE 8C 
RETURN 8E 
REMOVE C3 
REM SF 

RESUME A7 
RSET D1 
RIGHT 奉 FF 
RND FF 

R ENIJM AA 
RBYTE BE ： 
STOP 90 
SNAP A 4 
SET C9 

SAVE D2 

注）中間言語に対するキ ^ 

〔図表卜8〕中間言 


7 


I 


テ 



*•1 

.ノ 


■ ■ 


_1 

x 

サ 

丄 




SPC( DD 

STEP DA 

Sm FF S4 

SQR FF S7 

E:IN FF 89 

STR 丰 FF 93 

STRINGS El 

SPACE*- FF 93 

STATUS EE 

3RQ ED 

T R ON A2 

TROFF A3 

TAB く D? 

TQ D7 

THEN D8 

TAN FF SD 

TERM B6 

TALK BF 

TIME 本 EA 


m 


« 


氬 




u 


USING 

USR 

UAL 

UARPTR 

WIDTH 

WAIT 

WBYTE 

XOR 


r 

j 

Jb 




¥ 


v 


薩 


力 


Mi KEY WORD を採す際に他利なように併せて、出力しています。 

(コード順） 




2 


3 


4 


B 


C 


D 


E 


F 


END 



FOR 



NEXT 



DATA 



INPUT 


DIM 


READ 


LET 


GOTO 



RUN 


IF 


RESTORE 


GOSUB 


RETURN 


REM 


STOP 



PRINT 



CLEAR 



LIST 



NEW 



ON 



WAIT 


DEF 


POKE 


CONT 


CSAVE 

nr 


CLOAD 


OUT 



LPRINT 


LUST 



CONSOLE 


A 


WIDTH 



ELSE 



TRON 



TROFF 



SWAP 



ERASE 



ERROR 



RESUME 



DELETE 


ヴ 


AUTO 


RENUM 



DEFSTR 



DEFINT 



DEFSNG 



DEFDBL 



LINE 


B 


PRESET 



PSET 



BEEP 



FORMAT 



KEY 



COLOR 



TERM 



MON 



CMD 



MOTOR 



POLL 



RBYTE 



WBYTE 



ISET 



[RESET 



TALK 


C 


夕 


MAT 



LISTEN 



DSKO$ 



REMOVE 



MOUNT 



OPEN 



FIELD 



GET 



PUT 



SET 



CLOSE 



LOAD 



MERGE 



FILES 



NAME 



KILL 


D 


LSET 


RSET 


SAVE 


LFILES 


INIT 


E 


ERR 



STRINGS 



USING 



INSTR 





LOCATE 


VARPTR 



CSRLIN 




TO 




THEN 




TAB/ 




STEP 




USR 



FN 



SPC( 



NOT 



ERL 


ATTR$ 


DSKI$ 


INKEY$ 


TIME$ 


DATE$ 




SQR 



STATUS 



POINT 


秒 


AND 


OR 


XOR 


EQV 


IMP 


MOD 


¥ 


来 


8 

9 

A 


INP 

CSNG 

LEFTS 

POS 

CDBL 

RIGHTS 

LEN 

FIX 

MID$ 

STR$ 

CVI 

SON 

VAL 

CVS 

INT 

ASC 

CVD 

ABS 

CHR$ 

DSKF 

SQR 

PEEK 

EOF 

RND 

SPACE$ 

! 

LOC 

SIN 

OCT$ 

LOF 

LOG 

HEX$ 

FPOS 

EXP 

LPOS 

MKI$ 

cos 

PORT 

MKS$ 

TAN 

DEC 

MKD$ 


BCD$ 



CINT 



ff については、上図を参照。 
IEEE の中間言語は、 FF‘EC です 


2 8 
8 8 


表 


ラ 



ネ〇 - k 


li I. 


シ ■ P 日转 * 钟 ， JX 円穿 


4 

9 

2 B F 5 〇 6 C ^ 3 4 5 6 7 E 4 〇 

■ 二 / JllrrT marLL 1 一 ll F F E Lr 


2 


FF 
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V 


80 20 


アスキ _ タンプ部 

人 

3EE .0_d-r 11 SYSTEM 11 ， 
4A1 • 了 11 S OFT 11 «M_x 
475 •了 l( FUKU OKA n • 

3B7 •了 _.PHON E;092-71 

253 卜 6254" . . . 

000 . . . 

FF8 . . 


M SYSTEM' 1 
*_SOFT M 

M FUKUOKA M 

11 PHONE s 092-7 14-6254" 


ダンプリスト 


中間言語表にキャラクタを一緒に出力しておりますが、これは、 1 — 12 に示すダンプリス 
卜（アスキー文字同時出力）でテキストを調べる場合、便利ですので活用してください。 

例えば、 PRINT は、中間言語コードで 91 H なので、アスキーダンプ部分には、“丁”で出 
力されています。次のサンプル • プログラムとそのダンプリストを参考にしてください。 

BASIC プログラム 


1-6 .中間言語処理ルーチン 


中間言語に対応する処理ルーチンのアドレスが、 33 BD 番地から 34 C 0 番地に中間言語コ 
ー ド順に格納されています。 


3 3BDH 
3466H 


346 7H 
34C0H 


81 H 

i 

END 

D 5 H 

LOCATE 

FF 81 H 

( 

LEFT $ 

* _ _ _ T 

) 

FFADH 

MKD $ 


N - BASIC で使用する KEY WORD の場合は、その処理ルーチンは、直接 N - BASIC イ 
ンタプリタ内 （0 〜 5 FFF ) を指していますが 、 Disk BASIC で使用する KEY WORD 


の場合、一旦 FO E 1 


F 215 番地にあるジャンプテーブルを呼び 、 Disk BASIC が起動 


〇 


している場合には、そこから 、 Disk BASIC インタプリタ内 （ D 3 E 5 〜 E 9 FF ) へジャンプ 
し、そうでない場合は、1875蕃地へジャンプします 
1875番地は、エラーメッセージ ''Disk BASIC Feature ^ を出力して、ダイレクトコマ 
ンドモードに戻るルーチンです。 


0 0 0 0 0 0 
3 4 5 6 7 8 

Au- AHW ADW 

3 8 388 JB 


0 821 0 0 F 
0 7 8 3 0 0 F 

2 0 0 7 0 0 F 


2 8 


D D 
4 4 


0 

8 


3 0 0 F 


3 D 0 0 F 
6 2 0 0 F 


5 0 0 2 8 0 F 
4- 0 0 3 0 0 p 


2 2 9 0 0 F 
2 2 3 0 0 F 

4 1 0 F 0 F 
543F 0 F 


4 

5 

3 

5 


9 6 B A 0 0 F 
5 4 4 3 0 0 F 

3 F F 5 0 0 
5 4 4 4 0 0 


2 3 5 E 0 0 F 
2 5 5 4 0 0 F 


0 

2 


9 


2 8 F 2 0 F 
2 4 4 2 0 F 

0 5 8 4 0 F 
2 5 4 3 0 F 

0 16 0 5 0 F 
0 9 4 5 3 0 F 

4 0 2 2 2 0 F 
6 0 2 2 3 0 F 

0 E 0 0 xw 0 F 
8 6 2 2 3 0 F 

0 0 1* 1D 0 F 
3 8 9 9 2 0 F 

0 D 0 0 4 0 F 
6 3 0 0 3 0 F 


TT T T 

NN N N 
1 1 I I 

R R R R 
pp pp 

0 8 0 0 
0 12 3 

i_A J1 
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MON モードでジャンプして実行すると、 


mon 

XG 1875 

Disk BASIC Feature 
Ok 


となります。 


〔図表〗-9〕 

① N-BASIC のとき ② N-BASICTDisk 用 

KEY WORD を使用したとき 




③ Disk BASIC のとき 


Disk 

BASIC 



ジャンプテーブルは、各3バイトで、未使用分も含めて、全部で85組あります。 
N - BASIC のみの場合 、 Disk BASIC 用 KEY WORD に対応するジャンプテーブル内は 
C 3.75.18 で1875番地へジャンプする機械語が人っており 、 Disk BASIC Feature を表示し 

てダイレクトコマンドモードに戻ります。 

Disk BASIC の場合、そのジャンプテ ー ブルは、起動時に 、 Disk BASIC インタフリタ 
内のジャンプテーブル （ D 58 B 〜 D 6 BF ) が、 F 0 E 1 〜 F 215 番地にブロック転送され 、 Disk 
BASIC 用に書き換えられてしまい、先程の C 3.75.18 が、例えば C 3.84. DB などとなり、 
DB 84 香地にジャンプすることになります。 

したがって 、 Disk BASIC KEY WORD を使用すると、それに対応した Disk BASIC 
インタプリタ内の処理ルーチンへジャンプすることがわかります。 

次のプログラムで、中間言語コード対応の処理ルーチンのリストが出力できます。 
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F138 DDF0 
F13B DDF i 
F14D E284 
F13E DBS4 
F141 DDDE 
Fi44 E812 
F147 E0i1 
F14A DE3D 
F126 E27F 
2262 
0792 
54F? 

552? 

5532 
2686 
283 F 
2671 
3 iAl 
3283 
32FC 
2503 
31F3 
32F6 
335 D 
3372 
5051 
56 A i 
5079 
548 C 
527A 
5553 

5498 

54A8 
5911 
54DF 
5270 
5275 


46C4 

468C 

5SD? 

46CF 

5AED 

445B 

445E 

4461 

4464 

4877 

0705 

06BS 

0041 

F12F 0804 

1343 

0951 

SDB8 

8D5D 

F0FC： 1875 
0DA1 

Fi 14 1875 
FI1A 1875 
FI i? 1875 
F105 1875 
F108 1875 
F10B 1875 
Fill 1875 
F10E 1875 
F12C E4?C ： 
FI50 E20D 
F153 E 208 
F8FF DBD6 
F102 E0BF 
1386 
1891 

F156 E10? 
F135 E 240 


4cJ2F 

4159 

4A0S 

45BE 

48DA 
4E37 
493? 
45DE 
4560 
453D 
4702 
4302 
4555 
45 A 3 
45C0 
432A 
4742 
44E8 
570 C 
3DE8 
4642 
5683 
50 CC 
5918 
4383 
1EC0 
1F18 
5 6 A D 
473A 
5767 
0834 
0943 
45C0 

4396 

4397 
439C 
43DF 


Subroutine for Keywords 关关关关关 

C=^H31 :«=" " : FOR AD=^H33BD TO &cH34BF STEP 2 
IF AD=8kH3467 THEN C:=& H 81:Cf>= •• F F *， 

A=PEEK(AD)+PEEK<AD+1> 关 256 

PRINT 0¢ jHEX^<C) ;TAB(?) ; RI 6HT#C H 000 " + HEXt< A) ,4) 11 
IF A<^H7FFF THEN PRINT:GOTO 170 

A=PEEK<A+ 1)+PEEKCA+2) X256:PRINT RI GHTf-C " 000 "+HEX^( A) ,4) 
C=C+1 : NEXT 


実行結果を次に示します。 


12 0- 4 5 6 7 8 9 A B c D E F 0 1 2 3 4 5 6 ? 8 9 A 
8 8 8 8 0^ 0^ 8 8 8 8 8 s 8 8 8 Q- 9 9 Q- ? 9 Q- 9 ? 9 9 

Be DLUF 012 34 5 FFFFFILFFFFFILFFFFFFFFFFFFFF 
c c c c c D D D D D D F F F F F F F F F F F F F F F F F F F F F F F F F F 


5 祕 AQ 細姑 $$p t 02c;20os 防 ，^ gggo oyv DgppPQgp DP sQiQ2sss 2 as? 


1 2 ^.0 4 5 ,6 ? 8 9 A B c D E F 0 10.^ 3 4 5 6 7 8 Q- ^ B c D E F 8 1 2 3 4 5 
8 8 8 8 8 8 8 8 0^ 8 8 8 8 8 9 9 ? 9 9 Q- 9 Q- 9 9 9 9 9 9 9 9 ^ A A A A A 


0 0 
0 1 


0 0 0 0 0 0 
2 3 4 5 6 7 
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282 C 


FF 

A? 

F0E1 

E1EB 

pn 

^■•*1 At 

F8E4 

E1EE 

FF 

AB 

F0E? 

EiFi 

FF 

AC 

F159 

E 812 

FF 

AD 

F6EA 

E84C 




F0ED E823 


F0F8 E8*dB 
F168 E 868 
F@F3 E1D2 
F0F6 EiD5 
F0F? EiD8 


5074 

20F? 

F123 1875 
F128 1875 
277F 

■ 4 ^ ■■ ** 

27DF 


注 1) 中間言語表より、例えば81 H は END 、 B 9 H は MOTOR 、 FF .96 は、 CHR $ の中間コードです。 

注 2) N - BASIC のみの場合、2つめの処理ルーチンアドレスは、すべて、1875になります。 

なお、付録の KEY WORD 、中間言語コードおよび処理ル—チン対応表も参照して〈ださい & 

この出力結果を見てみると 、 Disk BASIC Feature のエラーメッセージを出すルーチン 
(1875 H 番地）へジャンプしているものがいくつかあることがわかります。 


中間言語コ_ド 

KEY WORD 

ジャンプ テーブル アドレス 

B8 

CMD 

F0FC 

BA 

POLL 

F114 

BB 

RBYTE 

F11A 

BC 

MBYTE 

Fi 17 

BD 

ISET 

F105 

BE 

I RESET 

F108 

BF 

TALK 

F10B 

C0 

MAT 

FI11 

Cl 

LISTEN 

F10E 

FF-9D 

DEC 

F123 

FF _ 9E 

BCD 奉 

F120 


これらの KEY WORD は、現在のシステムでは使われていないことになるので、空き領域 
や、 CLEAR 文で確保した領域に、機械語のルーチンをつくり'そのアドレスを対応するジ 
ャンプテーブルに、 C 3 と書込んでおけば、これらの KEY WORD により、その 

ル—チンが実行されます。 7-4-4 〜5にその応用例をあげておりますので参照してください c 
このようにして使われているジャンプテーブルは、85組のうちの39組で、これ以外にも 
N ~ BASIC や Disk BASIC の要所要所からこのテーブルに飛んできては、別のところへジ 
ャンプしていったり （ C 3.5 D . E 1)、 すぐさま元のところに戻っていったり （ C 9.00-00) し 
ていますので • 機械語にくわしい方は、これらも利用すると、更に応用が広がります。 


2 3 4 5 6 7 8 

ahaaaaA 

F F F F F F F 
F F F F F LU F 


B c D E F 0 i 

9 9 99VRH 

F F F F F F F 
F F F F F F F 


27 




卜 7 •識別コード 


識別コードは、プログラム中で、数値の先頭につけられていて、以下の数値が、何であ 
るかを示すものであり 、 KEY WORD や変数名との区別を行なうものです。 

次表に、 識別コードと その 意味に ついて、 示します。 


〔図表1-10〕 


識別コード 意 味 


Ob (&0)以下の2バイトは、プログラム中の8進数を16進数に変換したもの 

です。(—32768〜32767…整数) 

OC (&H ) 以下の2バイトは、16進数です。（—32768〜32767…整数） 

0 D 以下の2バイトは、行番号などを、実際のメモリ上の飛び先アドレス 

1 (16 進）に変換したものです。 

0 E 以下の2バイトは、 GOTO ， GOSUB ， THEN の後に続く、行番号 (0 〜6553 

I 5) を16進に変換したものです。 

注） 0 E の後の行番号は、一度ブ〇グラムを実行すると、実際のアドレスに変換され、識別コ 
ードも W 0 D " に変わります。 

OF 以下の1八イトは、10〜255の数値を16進で表わしたものです。 

(0 A - FF ) 

11へ1 A j 識別コードそのものが〇〜9の数値を表わします。 

(11—0，12—1， 13—2. . 19-^8 , 1 A —9) 

1C 以下の2バイトは、整数（一32768〜 32767) を16進数に変換したものです。 

1 D 以下の4バイトは、浮動小数点表記の単精度実数です。 

1 F 以下の8バイトは、浮動小数点表記の倍精度実数です。 


1-8. 単純変数領域 

単純変数領域は、プログラム領域のすぐ後から、配列変数領域の前までで、その領域は 
ボインタ EFAO , A 1 で示されるアドレスから EFA 2, A 3 で示されるアドレスの1つ前まで’ 
です。但し、プログラムを実行して実際にその変数が使われないと、変数領域には登録さ 
れません。またプログラムを変更すると自動的にクリアされます。 
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list 

100 rem y 

110 DIM C(12) 

120 INPUT H A= 11 ;A 

130 INPUT "B= 11 ;B:C(0)=AXB 

140 PRINT H AxB= H ;C<0) 

150 END 
Ok 


run 


5CDS070,8i8F 

8070 76 80 96 00 81 00 80 80[04 
8080 00 42 00 00 00 85]04 00 43 

关 

8 0 7 8 0 4 


mon 

关 DEFA0 
EFA0 

关 


変数領域の始まりアドレス 



80 C2 80 20 88 


配列変数領域の始まりアドレ 


上の例では、単純変数領域のアドレスは、8078〜3 


では、その中味はどうなっているか調べてみま 


8 0 7 9 0 0 

7 A 41 


VARPTR 関数はこの—8 0 7 B 0 0 
アドレスを指します 〇〇 

0 0 

7 E 8 9 


8 0 7 F 
8 5 


04 84 04 04 04 04 04 04 


ス 


3085番地ということになります。 




上つ 0 


単純変数領域 




00 41 00 00 00 89 04 


37 00 0i 0D 00 00 00 


変数の型- 

( 1バイト 


0 2 

整数型変数 

0 3 

文字型蛮数 

0 4 

単精度型変数 

0 8 

倍精度型変数 


または、変数名の後に占有するバイト数と 
みても良いでしょう。 

変数名変数名 A (アスキーコード 41 H ) 

(2 バイト） 

変数名が2文字の場合、2文字目が1パ' 

卜目に入ります。 


数値256を表わしています。 
(浮動小数点表記による） 

くわしくは、 8 — 13を参照してくださ t 


〇 


変数 B の内容（上記に同じ） 


6 

69 
5 6 0 
214 

? ?= 

B 

一 I H X k 

A B A 〇 
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〔図表卜11〕 



ポインタ：文字列の格納先（プログラム中または、文字列領域）アドレスを示 

します。 


変数の格納アドレスを知るのに VARPTR という関数があります。 

print hext<varptr C a)> 

88 7B 
Ok 

print hex^(varptr<c<8))) 

888E 

Ok 


この関数により示されるアドレスは、変数名の次のアドレス、すなわち数値変数の場合 
数値部分の先頭アドレスを、文字変数の場合、ストリングディスクリプタの先頭アドレス 
(文字数の部分）を指しています。 


1-9 .配列変数領域 

配列変数領域は、単純変数領域の後にありフリー エリ アの始まる前までで、 その 領域は、 
ボインタ EFA 2, A 3 で 示されるア ドレスから EFA 4， A 5 で 示されるア ドレスの1つ 前まで 
です。この領域は、 DIM 文を実行するか、添字が10以下の配列変数を使ったときに確保さ 
れます。配列変数領域が確保されたあとに新たな単純変数を使うと、配列変数領域は、そ 
の分だけ後にずれます。また単純変数領域と同様、プログラムを変更すると_動的にクリ 
アされます。 
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配列変数領域 

43 37 00 0 I 0 D 0 0 00 00 

00 00 ¢10 0 0 ¢10 00 0 0 0 0 

00 00 00 00 00 80 00 00 

00 00 00 90 00 0 0 CD C C 

0t180 00 0 W 0 0 W0 0 0 0 0 


mon 

笑 D ; 3030 ,80 CF 
808 fi 00 42 00 08 

fci 0 0 00 S D 0 0 00 

S 0 A 0 00 00 08 00 

30 B 0 00 00 m 00 

80 Cti 44 84 |00 00 


1 ist 

100 REM 方 Wj 
i 10 DIM C(12) 
120 INPUT "A= 
130 INPUT 11 B= 


5 A 

;B;C<0)=A^B 


140 PRINT ,, AxB= H ;C(0> 
150 END 
Ok 


run 

A= ? 256 
B= ?16 
AxB= 4096 
Ok 

mon 

关 DEFA0 


配列変数領域の始まり 


EFA0 78 80 [86 80l[p2 80] 20 80 04 04 04 64 64 64 04 04 



フリーエリアの始まり 


上の例では、8086〜80 C 1 番地が配列変数領域ということがわかリます。その領域をは 
きりするために、 C (12) に適当な値（ここでは12.3)を代人してみると、 


つ 



2 

li 

.■ノ 

2 
iJL 

(K 
C 0 
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8 

0 

8 

6 

0 

4 

8 

0 

8 

7 

0 

0 



8 

8 

4 

3 

8 

0 

8 

9 

3 

7 

8 


8 

A 

0 

0 

8 

0 

8 

B 

0 

1 

8 

0 

8 

C 

0 

D 



8 

D 

0 

0 

8 

0 

8 

E 

0 

0 





0 

0 




i 

0 

0 



9 

■ 

1 

1 

8 

i 

i 

D 

8 

0 

■I 

B 

i_ 

卜 

E 

* 

c 

D 





cc 




) 

4 

4 



C 

1 

8 

4 



……配列変数の型 

…… 43*00 况列変数名 '、 C " …アスキーコード…43 H 

……00.37 以降に使用するメモリ数 （ 4バイト X 13+ 3 =56—37 H 
…… 次元 数1 次元 配列を 表わす。 

…… 00,0 D 配列の要素大きさ 13" •(添字の数+1 ) 

……数値 c ( o ) の数値' 

I 

I 

I 

: >4 X 13=52 バイト 

I 

…… 数値 C (12) の数値， 


) 


数値配列と文字配列について、整理すると、次のようになります。 


〔図表 M 2〕数値配列の場合 AB %(3, 4, 5) の例 


配列変数名（41,42… AB ) 



鳌数型 02 
単精度型0 4 
倍精度型 0 8 


〔図表彳-13〕文字配列の場合 C $(2, 3) の例 


変数名（43,00…¢：) 

次数 配列数3 



変数の型 以降の使用メモリ数 配列数4 文字数とポインタ（各々3バイト） 


3バイト X 3 X 4 + 2 X 2+1 =41=29 H 

^ I ^ 

文字型0 3 


文字数ポインタ（格納先ア 
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1-10 .文字変数と文字列領域 


蛮数が文字列の場合、単純変数領域 
や配列変数領域に格納されているのは 
文字データそのものでなく、変数の型 
(1 バイト…… 03 H )、 変数名 (2 バイ 
卜 ） 、配列変数の場合更にメモリ数 （ 2 
バイト）、次元数 （1 バイト）、配列数 
(2 バイト X 次数）と、それに続く、ス 
トリングデイスクリブタ （3 バイト）と 
呼ばれるものだけです。 


実際の文字列は、このストリングディスクリプタ中のポインタの指すアドレスから始ま 
っており、その場所は、プログラムエリア中や文字列領域中、また 、 Disk BASIC の場合 
は、ファイルバッファ中などとなっています。 

文字列領域は、 EB 50, 51で示されるアドレス+1から EF 54, 55で示されるアドレス 
までです。 

〔図表卜15〕 



フリ_ェ y アの最終番地を指定 
(第2パラメータ） 


スタックの 始まり アドレス （ EB 50， 51に格納）は、 フリーエリアの 最終 アドレス （ EF 54, 
55に格納）から CLEAR 文の第1 ハ。ラメー タの数値を差引いたものに等しくなります。 

次のプログラム例で確認してみましよう。 


〔図表卜14〕ストリングディスクリプタの構成 


ポインタ： 文字列が格納されているメモリ 

の先頭アドレスを指しています。 


文蜂:数 ： VARPTR (文 L 数名）関数で示されるアド 

レスは、 対応す る蛮 数の文卞数の 人っている 
このアドレスを指しています。 
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]ist 

100 A*= h PC-800 l 1 ' 

110 FOR 1=0 TO 2: READ NM*< I) : NEXT 

120 DATA System,Soft,Fukuoka 
136 INPUT H Phone No. ■■ ;PH$ 

Ok 


プログラムの実行後、変数のボインタ（ストリングデイスクリブタのアドレス）を調べ 
てみましょう。 


run 

Phone No. ? 092-714-6254 
Ok 


print h@x^<v varptr ( a^) > , hex 本く varpt r •く ph$) ) ? hex^< varptr (nm^C 8))) 
8081 308E 8099 

Ok 


次に、上記ポインタのアドレスを調べてみます。 

mon 

关 D8080,80?F 

8080 41 07 2? 80 04 00 49 00 00 40 32 03 48 50 0C F4 
8090 E? 03 4D 4E 24 00 01 8B 00 06 5180 04 58 80 87 

笑 — ' ' 


〔図表 1 - 16 〕 


変数名 

ストリングディスク 
リプタのアドレス 

ストリングディスクリプタ 

文字列格納場所 

文字数 

ポインタ 

A $ 

8 0 8 1 

7 

8 0 2 9 

i プログラム領域 

PH $ 

8 0 8 E 

12 

E 9 F 4 

文字列領域 

NM $(0) 

8 0 9 9 

6 

8 0 5 1 

プログラム領域 
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文字列領域は、 EB 50, 51と、 EF 54, 55を調べると、 


mon 

XDEB50 


スタックポインタ初期アドレス 


_ * 

EB50 [D3 E8| FF FF 2180 20 

b _ ■ _ I 


B7 00 00 


关 DEF50 

EF50 00 00 00 00 |FF E?|58 EF 05 6 & 

しフリーエリア最終アドレス 


00 28 0F 28 1B 24 
3B 00 00 00 00 00 


E 8 D 4 〜 E 9 FF がその領域であることがわかります。したがって、 PH $ OE 9 F 4 は、文 
字列領域の終わりの方にあることになります。 


mon 

XD8E9F0 f E9FF 

E9F0 00 00 00 00 30 39 32 2D 37 3134 2D 36 32 33 36 

关 


すなわち、文字列は、文字領域の終わりの方から格納されます。また、 A $, NM $( I ) 
のように、プログラム中に代入文や DATA 文などで文字列が存在する場合は、文字領域は 


使用されません。 


注） Field 文で指定した変数のポインタは Disk のファイルバッファ内を指しています。 
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1-11 •フ U —エリア 


フリーエリアの量を知る関数として、 fre 関数があり、 （） 内に入れる引数が数値また 
は数値変数の場合は、 BASIC プログラム領域の空きエリアのバイト数を、引数が文字また 
は文字変数の場合は、文字列スタック領域の空きエリアのバイト数を、それぞれ表わしま 
す 

フ〇 

N - BASIC の起動時、 32 K システムでは、 

NEC PC—S 00 i BASIC ； U e r i,8 
Copyright 1979 < C) by Microso+ t 

Li k 

or i n t i : r e ( 0> 

r 26786 
0 k 

pr i n t + r e ( a .$.) 

300 

n k 
* * 

16 K システムの場合 

I 

print f r e (8 > 

10 402 

U k 


となり、26786バイトのテキストエリアと300バイトの文字列スタック領域があることがわ 
かります。 

文字列スタック領域の300バイトは、 CLEAR 文により自由に容量変更できます。 

Disk BASIC 起動時は、 Disk BASIC プログラムおよびファイルバッファ領域などが占有 
されて、例えば、ファイルバッファを3だけ確保した場合には、 32 K システムの場合、 

D i sk vers , i on [14~ Wov - 1?88 ] 

How many i i ] es (0-15)? 3 

NEC Fm ：:- 80 8 i BASIC : Ver i , 6 
Copyright 197? ( C ) by M i c r . osoi t 

Qk 

print tre (8) 
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となり、前と比較すると、 26786 — 19901 =6885と、約 7 K バイト弱、プログラムエリアが 

少なくなっていることがわかります。 

フリーエリアに関するアドレスは、次の通りです。 

EFA 4, A 5 . フリーエリアの先頭アドレス 

EB 50， 51 . スタックの始まりアドレス 

EF 79, 7 A . ストりング（文字列）フリースペース先頭アドレス 

EF 54, 55 . フリーエリアの最終アドレス （ CLEAR 文で変わる） 

EA 50, 51 . フリーエリアの最終アドレスの初期値 （ N - BASIC，Disk BASIC 

においても常に E 9 FF で CLEAR 文を実行しても変化しません。） 


〔図表卜17〕 


8000 


ROM エリア 
プログラム 


8000 


(EFA4, A5> 


print fre ( O ) 


フリーエリア 


Z-80CPU 内 

スタックポインタ 


スタック 


print fre ( A$) 


7-クェりア 


—— (S P) 

~^(EB50, 51) 

文字列領域 

^(E F79, 7A) 
-(EF54, 55) 

(EA50 ， 51) 


もう一度、次のプログラムをキーイン • 実行して、フリーエリアのアドレスの変化を調 
ベてみましょう。 

(32 K システム N - BASIC 起動時） 



10@ A^= n PC-800 1 11 


i 10 FOR 1 = 0 TO 2: READ I > : NEXT 


120 

i30 

Ok 


DATA System , Soft,Fukuok a 
INPUT 11 Phone No • 11 ; PH $ 


run 

Phone No • ,? 892 -714-6236 
Ok 


print fre (8) 5 + re ( a $) 
26635 233 

Ok 
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mon 

关 DEFA4 

EFA41 BA 88164 30 
EFB0 04 84 04 04 
XDEB58 

EB50ID3 E8lFF FF 
XDEF79 

EF791F3 E9I80 EB 
EF80 80 78 00 00 
关 DEF54 

EF54IFF E9l58 EF 
EF60 C8 09 00 80 

关 DEA58 

EA58 [FF E9]BD 33 


〔図表 1-18〕 

N - BASIC (32K) 


〔図表卜19〕 

Disk BASIC (32K) 

オープンフアイルバ、ッ 

ファ数により、文字領 
域およびスタックはア 
ドレスが 変わります。 


04 04 04 04 04 04 04 04 

2130 20 B7 80 08 00 281129 00 00 

5D 86 3F 
00 4A 80 00 00 


05 60 3B 01 03 CE 02 61 


00 FF 00 00 01 00 00 00 50 19 01 FF 



ン文字列領域 


(EF54,55) 
(EA 50,5 1) 


ROM エリア 



未使7 
(19901) 


スタック 


Disk 

BASIC 


ヮーク 


ア 


(EFA4 ， A5) 
8023 


80BA 令 




(EB 50,5 1) 
CDEE 

Print fre (A$) 

(EF 79,7 A) 
CFOE 

CF1 A 
(EF54,55) 

E9FF 
(EA 50,5 1) 



ROM エリア 



未使用 

(19750 



スタック 


未極用 
(288) 





文字列 


Disk 

BASIC 


ワークエリア 


—、 


>文字列領域 
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テキスト領域のフリーエリアは、 （ EFA 4, A 5) から、 Z -80 CPU 内の SP (スタックポイン 
夕）に格納されているアドレスまでですが、このスタックポインタのアドレスと （ EB 50， 
51) に示されるアドレスの間のスタック領域は、機械語の PUSH , POP が実行されるごと 
に、変化するので、厳密に言えば、 fre ( O ) の値は、処理ルーチンの中で SP のアドレスを読 
んだ時点でのフリ ー エリアを示していることになります。 

文字列領域は、スタックポインタの始まりアドレス （ EB 50,51の内容）+1から （ EF 54, 
55の内容）までで、文字列は、アドレスの大きい方から、小さい方へと格納されていき、そ 
の先頭アドレスが ( EF 79,7 A ) に格納されているのでフリーエリア容量は、 （ EF 79,7 A )— 
( EF 50 ,51 )—fre ( A $ ) となります。 

〔図表卜20〕 〔図表卜21〕 


BASIC テキスト 


(EFA4,A5) 


fre(0) 


(SP) 
(EB 50,5 1) 


スタック 
文字列領域 


(EB 50,51)— 


fre (A$) 

(EF79,7A ) —— > 

f 

文字列 

(EF54,55 ) —— > 


> 文字列 i 領域 



1-12 .メモリダンプリスト 


メモリの内容を見る場合、16進コードだけでなく、一緒にキャラクタも出力すれば、よ 
り内容が解りやすくなります。 

次にそのプロダラム例を示します。 

I ist 

100 / MEMORY DUMP LIST 磁关关 

118 WIDTH 80,25:CONSOLE 0 ， 25,0:DEFINT E-K 
120 INPUT Start Address " ;S$ s I =VAL( 11 " + S$) 

138 INPUT 11 End Address H ;E$ :E=yAL 〈 + :PRINT 

140 IF I MOD 1600 THEN I = I-i :G0T0148 

150 G=8:PRINT RIGHT$( ,l 000 M +HEX$( I) ,4) l, u ; 

160 FOR J=0 TO 15:K=PEEK( I+J) sPRINT R16HT$< M 8 H + HEX$(K) ,2) 11 ,l 
170 IF J=7 OR J=15 THEN PRINT H H ; 

180 G=6+K:NEXT:PRINT RIGHT^C H 00 ,I + HEX$(G) ,3)" H ; 

190 FOR J=0 TO 15:K=PEEK<I+J> 

200 IF K<32 OR K>247 THEN PRINT HH ; ELSE PRINT CHR$(K) : 

210 IF J=7 THEN PRINT " 11 ; ' 

220 MEXT:PRINT:I=I+16:IF I<E THEN 150 ELSE 120 
Ok 



Address ? 3a86 
Address ? 3b3® 


00 

00 

00 

ee 

ee 

00 

ee 

06 

082 

y . …•… 

00 

ee 

00 

ee 

00 

00 

00 

00 

1D9 

•auto _ • ■■■_■-•■ 

ei 

ee 

ee 

00 

00 

00 

00 

60 

\F9 

•go to • . . • 

00 

00 

08 

00 

00 

00 

ee 

00 

1DC 

-list ■ • 

ee 

86 

08 

08 

00 

ee 

00 

ea 

162 

■run … • ■••*•••* 

_ 

00 

00 

00 

00 

00 

00 

00 

1D3 

■ time$- - *•**■•■* 

ee 

ee 

00 

00 

ee 

ee 

⑽ 

08 

169 

•Key * - ■ 

08 

00 

ee 

00 

00 

00 

00 

ee 

24D 

■print ■ 

IE 

00 

ee 

06 

00 

80 

m 

ee 

233 

■list .* . 

88 

00 

ee 

ee 

60 

ee 

00 

00 

1C1 

■cont• ■ ■ ■■雪 . 

C9 

C3 

00 

06 

C3 

ee 

ee 

00 

53F 

■ ■/, ノ < ノ < ノラ •* • 


34F8 

3500 

3518 

3520 

3530 

3540 

3550 

3568 

3570 

3580 

3590 

3 獅 

35B8 

35C0 

3500 

35E0 


run 

Start 

End 

3A80 

3A90 

3AAd 

3AB6 

3AC« 

3AD8 

3AE0 

3AF0 

3 Bee 

3B16 

3B20 


75D 7 ヲ 777 Nh Bf _T 系 》Sf 

64? .UT マウ TTR 、 P.CD、_E 
733 EZ 心 ONSO Lt^LOStA 

78F 0N1SLEA メ -ILOAh^SA 
795 LSRLI* ^INt-SNS 

483 DB フ！ W# Uf*ghXOf 

62F *HR 、 •m? OLO メオ _AT 

786 #*HFS T メ 3TEFINT 
6CA 1-EFSN5?jE FDB73SK0 

812 、ツ E 二 6ELE THSK1、# 
6AB SK こ ! <E テ ^ TE、*_N し 
7DE LStmRASt - RR0/=?R7 
815 °R^=Xz - 0 1^3-OR 

7C9 〇メ _I EL に ILEf 

7if w ワ r 卜 iy 

799 7! 0 T7| 0 SIT 層 E 卞 5!. 


16 バイト毎の合計 （Check Sum ) も出力しますので、機械語の入カミスの Check にも利用 
できます。 


実行すると 、 Start Address と End Address を聞いてきますので、16進コードで希望する 
アドレス（0000〜 FFFF ) を入力してください。 

このプログラムは、 CRT 上に出力するようにしていますが、プリンタに出力したい時は 

150行以降の PRINT ( 8ヶ所）をすベて LPRINT に変更するか、画面プリントの項を参照し 

てください。また、グラフィックの出ないプリンタの場合は、200行の K の条件を変 i てく 


次に実行例を示します。中間言語テーブル (34 F 5 〜37 BB ) の一部、およびファンクショ 
ンキ ー 初期デ^ ー タ （3 A 80 〜 3 B 20 ) の部分を見ています。 

run 

Start Address ? 34f8 

End Address ? 35f0 チェックサム 


@¢600000103 

0000000000 p 
0 0 2 0 0 00200c 

80F 00404 edc 
02620207283 

0 F 4 4 D 5 0 E 4 9 
0677042 XW77C 

0403ED 993 E7 
07274 /07A76B 

05 F 959529 FF 
0 7 xw yo 7 6 6 7 6 6 2 

917C24B0C30 
066 67767669 

90000000000 
7 0 0 0 0 0 0 0 0 0 0 


xw 

Av 


S igQA:? U0QS: sACpgo 10PC2 的 Si S 

S5PS 5 ； 呢 .PW 铌牝斛 s2 卟奶肸 D 

E43B3 5 8 9 3 O/EXW0 CB4 
0A 595284 5 44A848^ 

ぼ料吓 S P S 肪私铋犯 a2g 矽 A is 

IS 们牝 q S s 2 仍 p s? S3 舻 Z 3 Qfv 

5PFIFE4FB 284214 F2 
894424 A 4A^55C4C 

£ g 2 S O BS ? S CQ 2 奸 

S S S? q 矽 S S 私如礼 Q ?} D2 卯 o 

S 妨耶吡 c 2 2 l s gz 铌 S:!? S ? 叩 S S 
S5? pg 牝邙劬明 4 S5S 仙 SJJU Co 

於！ 2 奶胪 X0Q1Q4 S 牝 p 仙 pc 
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1-13. 複数プ□グラムの□ー ド 


プログラム開始アドレスのポインタ （ EB 54,55) の内容を蛮えることによつて、いくつも 
のプロダラムをューザーズエリア上に、 LOAD または作成することができます。 


例えば、すでに8020番地からプロ 
グラム®が人って おり、 もう一つの 

プログラム⑧を A 000番地よリ LOAD 
またはキーインしようとする場合、 

1. A 000番地を、'〇 ( T にする。 

2. EB 54, 55番地に A 001 を入れ 

る。 

EB 54 ……01 H 
EB 55. A 0 H 

3. NEW の操作をした後、プログ 
ラムを LOAD ( CLOAD ) あるいは 
キーインすれば、 A 001 番地からプロ 
グラムが入り、 LIST 実行が可能と 
なります。 


〔図表1-22〕 


(EB54, 55) 8 0 2 


蛮える 




(EB54,55)A 0 0 


E 9 FF 


プログラム® 


ブログラム® 


ワークエリア 


it* on 

关 SA 000 

A000 FF-00 FF- 
XSEB54 

EB54 21-0 180 -A0 20- 

关 

mm 

元に戻す場合は、 EB 54,55番地に元のプログラムの開始番地8021を入れるだけで、8020 
から入っているプログラムを list 、 実行できます。 

実際に試してみましよう。 

8020番地から次のプログラムを入れ、実行します。（必ずしも実行する必要はありませ 
んが…… ） 


1 i st 

100 A$="PC -8001" 

110 FOR 1=0 TO 2;READ NM^<I);NEXT 
120 DATA System,Soft,Fukuoka 
130 INPUT M Phone No. n }PH^ 

Ok 

run 

Phone No. ? 092-714-6236 
Ok 





00 4124 Fi 
6 £ 60 82 28 
24 28 49 29 
74 65 AD 2C 
09 ?C 80 82 
2E 20 22 3B 

04 00 4? ee 
24 08 01 0B 

ee ee m ee 


*2_d-A$R 11 PC-8001 

11 *K_n 1 円 ■ ラ * s 

■ NM$(I) : 国 -e 一 x -國 

System, Soft,Fuk 
uoKa-l j -■ a Phon 
©No. »; PH$. 

A ■し小 

7-MN$ ••- __QjX 一 - 


次に、 モニタモードで、ポインタを書き替えた後、前記の Dump プログラムを LOAD ま 
たはキーインします。 

mon 

笑 SA000 

A000 FF-00 FF- 
关 SEB54 

EB54 21-01 80 -A0 20- 
Ok 


cload"Dump 
Founds Dump 
Ok 


このプログラムを実行すれば8020番地から入れたプログラムのメモリ内の状態をよく観 
察できます。 

run 

Start Address ? 8620 
End Address ? 80af 


このように、ユーザー エリ ア内にいくつものプログラムを入れておけば、いちいち LOAD 
する必要がないので非常に便利です。 

ただし、前の方に入れたプログラムを実行してみて、変数領域がどこまであるかを確認 
して、その後に入れるプログラムが破壊されないよう十分余裕のあるアドレスから、次の 
プログラムを入れてください。 


40D31F0E0 

68476684-0 

8BE95E 9 D 0 
8 4 4 7 6 4 240 


2 8 0 
3 0 2 


3 F 0 7 3 0 
5 6 2 0 0 8 

0 2 7055 1FD 
02827 6 4 C5 

0 0 0 0 0 0 0 0 0 
234567 8 9 A 

0 0 0 0 0 0 0 0 0 un 
8888888880 


7CEFftc 6 7D 
1A9B&AB5D 
44*4559-230 

1A4BE0F70 
338660 000 

0305F3C00 
310760 880 

003680 0 0 0 
3274 xw 0550 

878c 0 0 840 

308250 400 

0054*30300 
22yo 720080 

310604 218 
410622850 

013 F 58060 
5F8XW84 4 0 0 

'29A 300000 
243 5 0 5 000 








1-14 .フ□グラムのアペンド 


2つ以上のプログラムをアペンド（結合)する方法について説明します。 

Disk BASIC システムの場合には、 MERGE というコマンドがあって、本体メモリ内の 


プログラム®と、アスキー SAVE されたディスク内プログラム⑧を結合させることができ 
ます。そしてこのコマンドの場合、もしプログラム®とプログラム⑧に同じ行番号があっ 
たら、 ⑧の方が優先され同じ®の行 番号の 内容は、消されてしまいます。また、例えば⑧ 
の110行は、 ® の100行と120 行の 間に入っていき、⑷図のように重ね合わせる形で結合され 
ます。したがって⑧の方の行番号をあらかじめ RENUM して、 ® の最大行番号より大きく 
しておけば、 （ b ) 図のように⑧は®の後の方に、つけ加わる形で結合されます。 


〔図表1-23〕 


(a) 



(b) 



⑧ 


⑧ 






N - BASIC には、このようにプログラムをアペンドするコマンドはありませんが、次の 


方法で簡単に ( b ) 図のようにプログラム®の後にプログラム⑧を結合することができます。 


複数 プログラムの LOAD の 場合は、テキスト開始番地を プログラム® と重ならないよう間 
をあけて、 ⑧の 格納アドレスを設定しましたが、こんどは、 ® の 直後に設定すればよい訳 


です。 

(1) まず プログラム® をキーインするか、テープより CLOAD または、ディ スク より LOAD 
します。 （ LIST して、最大行番号を覚えておきます。） 


cl oad ,l HEMdmp 
OK 
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1 ist 

100 '• MEMORY DUMP LIST 

118 WIDTH 30,2 5:CONSOLE 0,25,0:DEFINT E-K 

120 INPUT "Start Address H ;S$: I=UAL( n yV+S$) 

130 INPUT H End Address ";E$;E=MAL<"feh" + E$) : PRIHT 

# 


200 IF K<32 OR 10247 THEM PRINT 11 - H ; ELSE PRINT CHR$(K); 
210 IF J=7 THEN PRINT M ; 

220 NEXT:PRINT:I=I+16:IF I<E THEN 150 ELSE 120 
Ok 


(2) プログラムの最後のリ 


ンクポインタの先頭アドレスを EB 54,55番地 ( 


テキスト開始香 


地が格納されている）に書き込みます。 


mon 

关 DEFA0 

EFA0 DF 3! DF 81 DF 3128 30 04 64 ^4 84 84 04 04 04 
SSEB54 

EB54 21-DD 80-81 20- 
0K 


〔図表1-24〕 


〔図表1-25〕 


31 B 9 



ここのアドレス （81 DDH ) を EB 54,55に害込む 


ここのアドレスは、 EFAO, 
A1 に格納されています Q 


すなわち、ブログラム®の最後のリンクポインタのアドレスからプログラム⑧が書込ま 

れるように、テキスト開始番地 （ EB 54,55の内容）を書き換えます。 

EB 54,55に書込むべきアドレスは、 EFAO , A 1の内容（単純変数領域の始まりアドレス 


から2だけ引いたものです。 
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〔図表卜26〕 


( EFAO , A 1) 

81 DFH -2 = 8 1 DDH 

1 -- > EB 54 番地へ格納 

-> EB 55番地へ格納 


(3) プログラム⑧をキーインするか、テープより CLOAD または、 Disk より LOAD します。 

cload^STHcpy 

Ok 


ディスクの場合、 LOAD するプログラムは、アスキー形式、非アスキー形式のどちら 
でもかまいません。 

list して、プログラム®と行番号がダブっていないか確認します。 


1 ist 

100 REHOME:CLEAR 1000:DIM Sf(15),C$<15) 

110 FI ELD* 10 ， 70 AS F$ 

120 FOR 1=0 TO15:FIELD#0, IM16AS DY$,IAS S$(I),9AS DY$,IAS C$(15) : NEXT 

# 


410 FOR S=14 TO 16:DSK0$ 2,18 f S;NEXT 

420 FOR T=0 TO 2:FOR S=1 TO I6:DY$=DSKI$(1,T ,S) : D3K0$ 2,T,S;NEXT S,T 
430 PRINTrPRINT 11 Complete 11 
Ok 


この例のように®とダブっている場合は、 RENUM します。 

renum 300 
OK 


(4) EB 54,55に格納されているテキスト開始番地を初めの8021 H に戻します 
(16 K システムの場合は C 021 H ) 
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man 

XSEB54 

EB54 DD-21 81-80 28- 
Ok 


これでアペンド完了です。つなぎ目の部分を LIST してみましよう 


1 ist 210,320 プログラム f 

210 IF J=7 THEN PRINT 11 u ; 

220 NEXT:PRINT:I=I+i6:IF I<E THEN 150 ELSE 120 

300 REMOVE:CLEAR 1000: DIH 3 $( 15) 15> — 

316 FIELD«0,70AS F$ ’ 

320 FOR 1=0 TO15:FIELD#0, IMl^AS DY $ ,1AS S$(I),9AS DY$,IAS C$(15) : NEXT^ 

プログラム® 


必要であれば再度 RENUM してください 


もし、 （3) で RENUM せずに、行番号がダブったままですと、 


つなぎ目の部分は、 


I 1st 210, 

210 IF J =7 THEN PRINT 11 n ; 

220 NEXT:PRrNT:I=I+ 16 :IF t<E THEN 159 ELSE 120 

100 REHOME : CLEAR 1008 :DIH S $( 15) ,C$(15) - 

110 FIELD#0,70AS 

120 FOR 1=0 TO^^IELDttB, IM16AS DY$,IAS S$( I) ,9AS DY$ ， 1AS C $( 15) : NEXT 
130 PRINT "Drive 1...System Disk" 


220 行の後に100行が表示されてしまいます。この状態で RENUM すると、プログラム⑧ 
内の GOTO , GOSUB , THEN などの後に続く行番号は、元のままで変わらず、正常な実行 
をしなくなりますのでご注意ください。 

こうしてつくられたプログラムの後に、プログラム©をアペンドすることも同様の方法 
で容易にできます。 
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第 2 章 CRT デイスフレイ _ 

2—1 VRAM と WlDTH の関係 
2-1-1 40文字モード•アドレスマップ 

2-1-2 80文字モード•アドレスマッフ 

2-2 アト 1 J ビュートエリアとは 

2—3 PRINT 文のちよつとした違い 

2-3-1 PRINT CHR$(12) と PRINT CHR$(12); 
2-3-2 PRINTC USING) 文のいろいろ 

2-3-3 ¥ と MOD の効果的な使い方 

2-4 GET®, PUT @の使い方 

2-4-1 配列の宣言 

2-4-2 配列の大きさ 

2-4-3 配列変数の型 

2-4-4 範囲の指定 

2-4-5 画面表示と配列の関係 

(1) キャラ クター モードの場合 

(2) ドットクラフイックスモードの場合 

(3) アト|」ビュートモードの場合 

2-4-6 画面彳壬意の位置の色を判定する方法 

2-4-7 画面に大き<キャラクタを表示する方法 

2-4-8 漢字をドット表示する方法 

2 — 5 POS, CSRLIN 

2-6 画面表示と消去 
2—7 クラフ作成 





第 2 章 CRT ディスプレイ 


2-1. WIDTH と VRAM の関係 


〔図表2-1〕 


WIDTH 文により、画面に表示する文字の 
行数と桁数を指定しますが、 N-BASIC で指 
定できる組合わせは、次の8通りです。 


WIDTH 


く桁数〉 

く行数〉 

36 




40 


20 



72 


25 

80 



また、画面に表示される内容は 、VRAM (ビ 
デオラム）と呼ばれる、 F300 〜 FEB7 番地に 
納められているものであり、その VRAM の領 
域を DMA (Direct Memory Access ) コント 
口ーラ （APD8257) の制御により、 CPU を 一 
時停止させながら直接データを読み取り、 
CRT へ表示します。 


画面の1文字が VRAM の1バイトに対応し 

起動時は、40桁20行になっています。 

ています。（白黒モ ー ドのとき左上隅が F 300 
番地の阿容） 

したがって、画面1行分 (80 文字）が、 VRAM 80バイトに対応しており （40 文字モードの 
ときは、1バイト置き）、続く 40バイト （20 組)が、その行の属性を定義する、アトリビュー 
卜（属性)領域となっています。したがって、 VRAM 領域は、120バイト X25 行 =3K バイ 
卜あり、うち、 2 K バイトが文字コード領域で 1K パ'イトがアトリビュート領域となります。 
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画面と VRAM アドレス対応表 


2 -M 40文字モードアドレスマップ 


〔図表2-2〕 


— 40 桁/白黒モード 

_40 桁 / カラーモード （ 39 桁 ) 

— 36 桁モ-ド ー ー 


25 行 


0 112 3 4 5 36 37 I 38 39 


- r ft F388 F362 F384 F3U FM F30A . .F34S F34A F34C F34E 

I F373 F37A F3；C F37E F380 F382 .. .F3C0 F3C2 F3C4 F3C6 

| 2 F3F8 F3F2 F3F4 F3F6 F3F8 F3FA . F438 F43A H3C F43E 

3 F463 F46H F46C F44E F478 H72 •………•… F4B0 F462 F484 _ 

4 HE0 F4E2 F4E4 F4E6 F4E8 F4EA . F528 F52A F52C F52E 

c j F553 F55A F55C F55E F566 F562 •………•… F5A0 F5A2 F5A4 F5A6 

j 6 F5D8 F502 F5D4 F506 F5DS F50A .. F61& F6IA F61C F61E 

2 L-7 F643 F64A F44C F64E F458 F652 . … ィ 696 F6?2 F694 F696 

8 F6C@ F6C2 F6C4 F6C6 F6C8 F6CA . . F788 F76A F?6C F78E 

? f 733 F73A F73C F73E F7 仙 F?42 . F780 F782 F784 F706 

|fi F7B8 F7E2 F7B4 F7B6 F7B3 F7 Bh . . F7FS F?FA F?FC F7FE 

II F823 F32A F32C F32E F830 F332 …剛 F372 F374 FS76 

12 F_ F8A2 F_ F_ F8A8 FSAA . . FSES F8EA F8EC F3EE 

13 F918 F?1A F?tC F91E F928 F?22 .. F968 F?62 F964 F964 

14 fm F? 92 F?V4 F??6 F? 98 F??h . F?D3 F9DA F9DC F9DE 

15 FA3S FAOA mC FA0E FA IQ Fh12 . .FA59 FA52 FA54 FA56 

!6 FASe FAS2 FAS4 FAS6 _ FA3A .. .FACS FACA FACC FACE 

r FAF3 FAFh FAFC FARE FB08 F862 . FB48 FB42 FB44 F846 

IS fm FB72 FB?4 FB?6 FB7S FB7A . . FBB3 FBBA FBBC FBBE 

_ P FSES FBEA FBEC FGE£ FGF8 F8F2 . ------ FC38 FC32 FC34 FC36 

26 KiS FC62 FC64 FC66 FC65 FC6A . . FCAS FCM FCAC FCAE 

21 FC03 FCDh FCDC FCDE FCE8 FCE2 . FD20 F022 FD24 FD26 

n FD50 FD52 mA FD5i F058 FD5A . FD?3 FD9A FD9C FD9E 

23 FDC3 FDCA FOCC FDCE FD08 FDD? ………•■… FEi0 FE12 FE14 FE14 
M FE40 FEi2 riAA FEW, PE4S FE4A . FES3 FE8A FESC FE3E 


アトリビュートエリア 


F350 F351 F352 F353 
F3C8 F3C9 F3CA F3CB _ " 
F446 _ F442 H43 " 
F4B8 F4B? F4BA F4BB •- 
F538 F531 F5：32 F533 
F5A8 F^9 F5AA F5A8 " 
F620 Fc21 F622 贈 ‘. 
F693 U99 F69A _ " 
F710 mi F?12 F?13 " 
F788 F739 F73A F788 " 
晒 m\ F882 F803 __ 
F8?3 F879 F87A F87B 
F8F0 F8F1 F8F2 F8F3 •- 
F?63 f96? f9m 關 " 
F9E9 F?Ei F?E2 F?E3 " 
FA53 FA59 FA5A FA5B •_ 
FAD8 FAD! FAD2 FADS - 
FB43 FB49 FB4A FB4B •_ 
FBCh FECI FBC2 FBC3 - 
FC33 FC39 FC3A FC3B _• 
FCB0 FCB) FCB2 FCB3 __ 
F023 FD29 F02A FD2B " ■ 
F_ FDhI m2 F 瞧 … 
FE13 FE1? FE1A FEIB … 
FE?@ FE?1 FE92 FE?3 ___ 


• F376 F37? 

• F3EE F3EF 

• F 偏 F46? 

• F4DE F4DF 
- ■ F557 

■ F5CE F5CF 

• F646 圖 

• F6BE F6BF 

• F736 F737 

■ F7AE F7AF 

• F 826 F327 

■ F3?E F89F 

• rm F?l? 

■ F93E F98F 

■ FA86 FAR? 
- FA?E FA7F 

• FAF6 FAF7 
_ FB6E FB6F 

• FBE6 FBE? 
- FC5E FC5F 

■ FCD_f_ FCD? 
_ FD4E FD4F 

• FOCo FDC7 

• FE3E FE3F 

• FEB6 FEB? 


locate x ， y の位置の VRAM アドレスは、 

40 桁/白黒モード AD = & HF 300 + 120 米 y +2 米 x 


40桁/カラーモー 


AD = & HF 302 + 120 来 y +2来 x 


(左側1桁が表示されず39桁となります 


〇 


36桁モード AD 二 & HF 304 + 120 来 y +2 来 x 
(左右各々2桁が表示されず、00が格納されます。) 
4()文字モードでは、メモリが1つおきに使用されます。 
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2 - 1-2 80文字モードアドレスマップ 


〔図表2-3〕 


--- 80 桁/白黒モード - — - - 

|-80 桁 / カラーモード （ 79 桁） - 

「 72 桁モード - 

oil 2 314 5 76 77 78 79 


0 F300 F301 F302 F383 F384 F305 . F34C F340 F34E F34F 

1 F 378 F37? F37A F37B F3?C F37D F3C4 F3C5 F3W F3C7 

2 F3FQ F3F1 F3F2 F3F3 F3F4 F3F5 . F43C F43D F43E F43F 

3 F468 F469 F44A R6B F44C F46D ... F 糊 MB5 F4B4 F4B7 

4 F4E8 F4E1 F4E2 F4E3 RE4 F4E5 . F52C F52D F52E F52F 

5 F558 F559 F55A F55B F55C F55D.. _ • • • F5A4 F5A5 F5A6 F5A7 

6 F5D0 F5D1 F5D2 F5D3 F5D4 F5D5 . .F 幻 C HID ¥6\£ FolF 

1 Fd48 F 糾 9 F44B F44C F<54D FW F495 ¥696 ¥69? 

17 8 F6C8 F4C1 F6C2 R5C3 F6C4 F6C5 F70C F78D F78E F70F 

? F738 F73? F?3A F73B F73C F73D ..*.F784 F785 F784 F737 

10 F7B8 F7B1 F7B2 F7B3 F7B4 F7B5 . .F7FC F7FD F7FE F7FF 

25 行 il F828 F82? F82A F82B F82C F82D. .. . F874 F875 F874 F377 

12 F8A0 F3A1 F8A2 F8A3 F»^4 F^l5 . . F8EC F8ED F3EE F8EF 

13 F9I8 F91? F91A F91B F?1C F91D . F964 F965 F966 ¥96? 

14 F990 F991 F992 F993 F994 F995 . . F9DC F9DD F9DE F90F 

15 FA88 FA8? FA6A FA8B FA8C FA8D . …"…關 FA55 隱 FA57 

\6 FA88 FA81 FA82 FA83 FA84 FA85 . FACC FACD FACE FACF 

17 FAF8 FAF? FAFA FAFB FAFC FAFD ■………■… FB 叫 FB45 FB46 FB47 

18 FB79 FB71 FB72 FB73 FB74 FB75 . FBBC FBBD FBBE FBBF 

119 FBE8 FBE9 FBEA FBEB FEC FBED FC34 FC35 FC3^ FC37 

28 FC60 K61 K62 FC43 K64 FC65 FCAC FCAD FCAE FCAF 

2J FCD8 FCD9 FCOA FCDB FCOC FCDD FD24 FD25 FD2^ FD27 

22 FD56 FD5! FD52 FD53 FD54 FD55 ..FD9C FD9D FD9E FD9F 

23 FDCB FDC9 FDCA FDCB FDCC FDCO . FE14 FE15 FEU FE17 

24 FE48 FE41 FE42 FE43 FE44 FE45 . FE8C FE8D FE8E FE8F 


アトリビュートエリア 


F358 F351 F352 F353 
F3C3 F3C9 F3CA F3CB 

F440 F441 F442 F443 

F4B3 m? F4BA F4BB 

F530 F531 F532 F533 

F5A8 F5A9 F5^ F5AB 

F620 F621 H22 ¥623 

¥693 H9? F49A H9B 

F710 F7U F712 F713 

F783 F789 F78A F78B 

卩 300 F801 F382 F883 

F378 F879 F87A F87B 

F8F0 F8FI F8F2 F8F3 

¥968 f?69 F?6A F96B 

F9E0 F9E1 F9E2 F9E3 

FA58 FA5? FA5A FA5B 

FAD0 FAD! FAD2 FAD3 

FB 犯 FB49 FB4A FB4B 

FBC0 FBC1 FBC2 FBC3 

FC3S FC39 FC 骀 FC3B 

FCB0 FCB1 FCB2 FCB3 

FD28 F02? FD2A FD2B 

FDA0 FDA1 F0A2 FDA3 

FE13 FE19 FEJA FE1B 

FE90 FE91 FE92 FE93 


F376 F377 
F3EE F3EF 

FA66 F447 

F4DE RDF 

F556 F557 

F5CE F5CF 

F6U mi 

F6BE F4BF 

F736 F737 

F7AE F?AF 

fB26 F827 

F89E F89F 

F916 F917 

F?8E F98F 

fm FA07 

FA7E FA7F 

FAF6 FAF7 

FB6E FB4F 

FBE6 FBE7 

FC5E FC5F 

FCD4 FCD7 

FD4E F04F 

FDC6 FQC7 

FE3E FE3F 

FEB6 FEB7 


locate x , y の位置の VRAM アドレスは、 


80 桁/白黒モ ー 


AD = & HF 300+ 120来 v + x 


80桁/ カラーモード AD = & HF 30 1 +120米 y + x 
( 左側1桁が表示されません。） 

72桁モード AD = & HF 304 + 120 米 y + x 

( 左右各々4桁が表示されず00が格納されます。） 

VRAM のアドレスに直接 poke 文でアスキーコードを書込めば、画面に、そのアスキー 
文字が表示されます。 

例えば40文字/白黒モードのとき、 

AD = & HF 300 + 120 来5 + 2来10 


poke AD , & H 48 

とすると、第5行、10桁目にが表示されます 
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前記は、 locate 10,5 : print '' H " を意味しますが、力ーソルは、全く移動しません。 
また、この poke 文により VRAM に直接書込む方法によれば、 00 H 〜 1 FH のコントロ 
—ルキャラクタをも画面に表示することができます。 

例 . poke & HF 320,3 .'' E x " 

poke & HF 320, &H 1 C •.■ハ'—" 

ついでですが、36桁モード、72桁モード時、使用していない、左右2〜4桁の部分にも 
poke 文を使って、対応する VRAM にアスキーコードを直接書込めば、そのキャラクタが 
画面に表示されます。 

属性がグラフィックモードのときは、キャラクタ1文字分のエリアが8ドットに分割さ 
れ下図のように割当てられています。 


〔図表2-4〕 


0 

4 

1 

5 

2 

6 

3 

7 


(例） VRAM の内容 

7 6 5 4 3 2 1 0 
61 H 「 0 「 1[11 〇 [ 〇 |" 〇 ! 〇 11 


画面への表示 


グラフィック 
モー ドのとき 



キャラクタ 
モー ドのとき 



2 - 2.アトリビュートエリアとは 

アトリビュートェリアに格納されているコードによリ、 VRAM 文字コード領域のデータ 
をどういう形式（カラー/白黒、グラフィック/キャラクタ、ノーマル/リバ’ース/ブリン 
ク/シークレット、アンダーライン/アッパーライン）で表示するかを定義します。 

その格納状態と意味は、次の図のようになります。 
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〔図表 2 -5 〕 


アトリビュートエリアの先頭 
1つの属性は、2バイトで表現されている 


F350 F351 F352 F353 F376 F377 

IBilli— Wllrrl ■ ぼ川 n m「HW |l I ■■■■■ _■ ■ —P—M—B— 


桁 




術数 

属性 


衍数 

属 4 

■*h- 




4 

^ 1 


属性コード 1 行にっき 40 バイト （20 組)確保 


' ->されている。 

この桁から次の1バイトの属性 従って、厲性の変化は、20回ま 

コードに従った表示を行なう。 で許される。 


来属性コード 


〔図表2-6〕 

(a) 白黒モード （CONSOLE , ，， 0) 


7 


HH 





HHDH 


Character 

■ 

■ 

mm 


■ 

■ 


■■1 


0 0 0 

ノ— マル 

CO し 。 R 0 

0 01 

シークレット 

CO し OR 1 

0 t 0 

ブリンク 

CO し OR 2 

011 

シークレット 

CO し OR 3 

10 0 

リバース 

CO し OR 4 

101 

リバ_スシ_クレット 

CO し OR 5 

110 

リバ_スブ y ンク 

CO し OR 6 

f 11 

リバ~スシークレット 

CO し OR 7 


(b) カラーモード （CONSOLE ", 1 ) 


7 1 

6 

5 

■KM 



t 

0 

0 

0 

アンダー 

ライン 


■ 


ブリンク 

シークレット 


来々ラー時の LINE 文に対応 

このビットが0か1かで12通りある 



mam 





■ 



■ 

■ 


■■ 

Graphic 

Character 


■ 


■ 


■ 


1 

0 0 


CO し OR 4 

1 

ED 



1 




1 

ID 




0 0 0 

黒 

CO し OR 0 

EEI 

1 








1 

紫（マゼンタ） 



53 






























2-3. PRINT 文のちよつとしだ違し、 


2-3-1 PRINT CHR $(12) と PRINT CHR $(12); 

画面をクリアするコントロールコードに OCH ( 10進数で 12) があり 、 PRINT CHR $(12) 
で画面をクリアできますが、 CHR $(12) の後に、！:；〕があるかないかで、画面クリア後の力 
ー ソルの位置が異なります。 

PRINT CHR $(12) 


PRINT CHR $(12); 


ただし 、 PRINT CHR $(12) に続けて、文字や文字列、その他を PRINT する場合は、 
PRINT CHR $ (12 )" ABCD " ……と〔；〕を省略しても '' ABCD 〃は、 最上行に表示されます。 





2-3-2 PRINT( USING) 文の いろいろ 

(1) PRINT の代りに〔？〕を使うことができます。ダイレクトモード時だけでなく、プ 
ログラム作成時も使うことができ、 LIST すると、自動的に PRINT に置き換わりま 
す。 

10 ? 11 Personal Compu ter 11 


list 

10 PRINT H Persona] Compu ter" 

Ok 

(2) 2 つ以上の式を 14 桁おきに表示するときは〔，〕、続けて表示するときは、〔；〕をその 
間に入れます。 

a 车二 "ABC" : H DEF" 

Ok 

pr i n t & 车 ,b 樂 

ABC DEF 

h - 14 桁- ^ 

OK 

pr i n t a J*; 5¢ 

ABCDEF 

OK 

(3) 文字定数や文字変数などを続けて表示するとき、間の〔；〕は省略できます。 

这漆 ="ABC:" 11 DEF H sc^= n 6HI " 

Ok 


print a * b * tab (20) chr ^<34) c * chr ^<34) 
ABCDEF H GHI " 

Ok 

j 一 省略可 

PRINT A$;B$;TAB(20). 


⑷文字列を表示するとき、後の〔〃〕（クオ ー ト ） は省略できます。 

print H Address ** -後のクオートは省略可 

Address 

Ok 
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print 

3¢ 123 
Ok 



print 1 en ( s t rK a )) 
4 
Ok 


正の数 u ! 2 3 

負の数こ 4 5 6 

T 

負号 


したがって （） の中に数字を詰めて表示したいとき、例えば、 A が正の整数である 
とき、 

print " < ,, a H )" 

( 123 ) 

Ok 


print " ( 11 mi d ^( str $*( a ) 5 2 ) 11 ) 11 

( 123) 

Ok 


などとする必要があります。 


⑹ PRINT USING 文のフォーマット文の中に、フォーマット文字 （ 井，&など）以外の 
文字を書くと、その文字が一緒に表示されます。 


後に、マルチステートメントが続くときは、省略できません。 

また、 CLOAD ， SAVE などに続くファイル名につける〔"〕も後の分は、省略できます。 

CbadTest < 後のクォートは省田&可 

Found : Test 

(5) 数値または、数値変数を表示すると、数値の後に1つスペースが表示されます。 

その数値が正の数の場合は、前にもスペースが1つ表示され、負の数の場合には、 
そこに''-〃が表示されます。 

a == 123: b =-456 
Ok 


t 6 
n 5 

•X4 

r* k 

P>K o 


56 


a =123: b -456 
Ok 

printusiriQ ,, «## 卜轉轉轉ヲ？ワ1 ルト ニナ I ノ 77 n 5 み ， b ,在 +b 

123卜456ヲク71ルト 579ニナ 1 ノ77 
Ok 


(7) フォーマット文の後に置く式が、フォーマットの数より多いときは、くりかえして 
そのフォーマットが使われます。 


a=133.45: b==67.8s c=90 : d=987.65s e=43.21 
Ok 

prin tusinq “ ###_ ## n ;a,b,c,d,e 

133.45 67,80 90.80 987.65 43.21 

Ok 


$="ABC M : bt= H CD" : c*= ， .EFG" 

Ok 

pr i n t u s i n q 11 4¢ ic ###■### M ; , a , 5¢ , b , , c 

ABC 133.450 CD 67.800 EFG 90.000 
Ok 


(8) USING 文のフォーマット文を文字変数とすることができます 


円"："字ン？ sc =1234.5 
Ok 

print using x^+ 11 H + ザ漆 ； c 

1234.50 円 
Ok 


(9) PRINT 文と、 TAB 関数と USING 文は、続けて使えます。ただし、 USING 文は、 
最後にしか使えません。 

+东= "#«###, 轉# 円"： x 本ンカ sc =1234.5 
Ok 

print x * tab (18) 11 .... . "usinq - f^ic 
宇：/力'"ク ..... 1234.50 円 

Ok 





〔図表 2- 7〕 PRINT USING 文一覧表 


フォーマッ 

卜 

機 能 

例 

t 

文字列の最初の文字だけを表示 

WABCDE" 

printusing"!" ; ai 本 

A - 

(…《 r & 

n 

文字列のうち始めから n 文字を 
左づめで表示 

a 漆：，， ABCDE" 
printusing •*&： ;a$ 

A BCD 

料社# 

数値を右づめで表示 

a=123 

printusing**## 轉 ja 

123 

t 

小数点 

指定の場所に小数点を表示 

12 • 3 

12.30 

Ok 

+ ###. 本 

t 

+符号 


数値の前に符号 （+ または一） 

を表示 

a=12 . 3 s b=-45 .6 
pr i n tusi ng H +### . ##'* ; a ^ b 
+12.30 -45.60 

井井#. ㈣ + 

! 

+ 符号 

数値の後に符号 （+ または一） 

を表示 

a=12.3:b=-45.6 
printusing 11 ### . ##+" ; a,b 
12.30+ 45.60- 

# 林井.## — 

負の数のみ後に マイナス 記号 
(_) を表示する。 

*=12.3: b=-45 .6 
pr i n tusi ng 11 ### • tt # —" ; a , b 
12.30 45.60 - ' 

米来 # 井井.井 

T 

2 つのアスタリスク 

数値領域の頭の空白部分を 
，米 " で埋める。 

(来来も桁数に含める。） 

- - 

12.3: b 二- 45.6 
pr intusing"XX###.##" ;a 

X 关关 12.30 5¢ 5¢™45.60 * 

T 

2 つの¥記号 

数値の直前に ¥ を表示する。 

(¥¥ のうち1個のみ桁数に含める。） 
(負の数だと 一 ¥ハ となり使用不可） 
(指数型にも使用不可） ： 

- —~ — ■■■■ . . 一… ~^ ， 

a= 12.3: b=— 45 . 6 

printusing"¥¥ 林 ##■ 林 #" ;a,b 

¥ 12,30 - ¥45. 68 

米米 

t 2 つのアス 

スクと¥記号 

P- 

P- 

タリ 

数値領域の頭の空白部分を 
、'米〃 で埋め数値の直前に¥を ！ 
表示する。 

( 来来¥のうち 2 個分桁数に含める） 

a= 12 . 3: b= ： -45 . 6 

printusing" 关关 " ; a , b 

关关关 ¥ 12,30 XX-¥45.68 

コンマ 

* 

t 

i 

，•林# 

小数点の左側の数値の 3 桁 
ごとに〔，〕を表示する。 

a=1234,56 

printusing* 1 #####, .## H ;a 
1,234.56 

甘 ##.# 社へへへへ 

T 

4 つの、' A 〃記号 

指数形式の表示を指定する。 

a=1234.56 

12.35E+02 


注 1) が…指定したフォーマットを越える桁数のときは、前に％が表示される 
注 2) 桁数の指定が24を越えると 、 Illegal Function Call エラーになる。 
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2-3-3 ¥ と MOD の効果的な使い方 

¥と MOD の機能は、 

¥……整数割り算の商 
MOD …整数割り算のあまり 
具体的な例で示すと、 

14+3=4あまり2 

t t 

14 ¥ 314 mod 3 

ということになります。 

小数点以下の部分は、すべて切捨てたあとに計算されます。 

a— 14 . ??: b=3. 1 
Ok 

?a^b , a mod b 
4 2 
Ok 


また、¥、 MOD で使える数値は、 一 32768 〜 32767の範囲で、それ以外では 、 Over flow 
エラーが 生じます。 

使い方の例を次に示します。 

(1) ある10進数を16進数に換算したときの上位8ビット、下位8ビットに各々分解する 
とさ、 

1234 

Ok 

print hex 冬く a¥256> , h©xK a mod 256) 

4 D2 

Ok 


とすれば、簡単になりますが、、もし¥、 MOD を使わないと、 


a=1234 

Ok 

print hex*< int<si/256) ) ,hex^< 1234-i n t < a/256) M256) 
4 D2 

Ok 


などとする必要があり、少しめんどうになります 
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プログラムは、 


/ I ■ラテ ■■ 

WIDTH80 ,25:N=50: R=5 : し = 10* P— 12 
PRINTC ： HR^< 12) sFOR 1=0 TO N- 1 
LOCATE P 关 （I ¥ し ）, I HOD L 
PRINTUSING 11 ## H ; I + 1 
NEXT : LOCATE©,L+lsEND 


となります。 

また、同じように、横方向に、 1 ， 2 ， 3 ……と表示したいとき、 


(2) 数値や文字列を画面に表示するとき、 

例えば、1〜50の数値を画面に次の様に、12桁毎に、5列、10行で表示したいとき、 


0 0 0 0 0 0 
0 12 3 4 5 
111111 


5 0 5 0 5 0 5 0 5 9 
112 2 3 3 4 4 5 


4949494949 
112 23344 


38 3 8 3 8 3 8 3 8 
112 2 3 3 4 4 


2 7 ? 7 2 7 2 7 2 7 
112 2 3 3 4 4 


1ZC1XW1XW161XW 

112 2 3 3 4 4 


12 3 
4 4 4 


4 

4 


567 890 
4 4 4 4 4 5 


12 3 45678 9 0 
3 3 3 3 3 3 3 3 3 4 


1 2 3 4 5 XW 7 8 9 0 
M 2 2 2 2 2 2 2 2 3 


i 0^ 3 4567890 

1A IX 111 i 11 Jx 1A 0^ 


i 2 3 4 567 8 9. 0 
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/ ■ 3=1 ■ 

NIDTH80,25s N=50: R=5:L=10 : P=12 
PRINTCHR*<12) : FOR 1=0 TO N-1 
LOCATE P 关 <1 MOD R) ,I^R 
PRINTUSING"## H ； I +1 
NEXT; し OCATE0 ? L+1:END 

となります。 

表示したい数値や文字列を配列変数に入れておけば、これを使って、簡単に表示す 
ることができます。 


2-4. GET @、 PUT @の使い方 

GET@、PUT @には、画面上の任意の範囲のキャラクタまたはドットグラフィックスを、 
GET @. 配列へ読み込む 

PUT @. ii 列の内容を画面へ表示するものです。 

とぃう機能があります。 

GET@、PUT @には、次の3種類のモードがあります。 

1. 通常モード（属性なし、キャラクタモード） 

2. G オプションつき（属性なし、グラフィックモード） 

GET ( X ， Y ) —( x ， y )、 く配列各 〉、 G 

^——アルファべットの G または g をつける。 

3. A オプションつき（属性つき混在モード） 

配列に読み込むとき、色、 リバース、 ブリンクなどの属性（アトリビュート）も一緒に読 
み込むものです。 

GET @ A ……属性も含めて配列へ読み込む。 

PUT @ A * ■•…属性も含めて配列の内容を画面へ表示する。 

-アルファべットの A または a をつける。 


プログラムは、 


0 0 0 0 0 0 
0 12 3 4 5 
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2-4-1 配列の宣言 

配列は、あらかじめ DIM 文により宣言しておく必要があります。配列の大きさが10以下 
であっても、前に、その配列を使用していなければ、宣言する必要があります。 

2-4-2 配列の大きさ 

配列の大きさは、読み込むキャラクタ数、ドット数、 A オプシヨ 
ンつきかどうかで異なり、少なくとも表に示す値以上とする必要が 
あります。 

2-4-3 配列変数の型 

変数の型には、整数型（％)、単精度型（丨）、倍精度型 （#) の3種類ありますが、メモリ 
効率上から、整数型（％)を用いるのがよいでしょう。 

例えば、倍精度変数を用いると、8バイト単位となり、キャラクタ数やドット数により 
1〜7バイト無駄にメモリを使う場合がありますが、整数型だと、2バイト単位ですので’ 
無駄になるとしても1バイトで済みます。 

2-4-4 範囲の指定 

画面の左上隅を（0,0)水平方向を x 座標 〔図表 2-9〕 

垂直方向を y 座標として指定します。 

一 ■般に、 

( X ， Y ) —( x ， y ) 

と指定しますが、 

( x ， y )_( X ， Y ) 

( x ， Y )-( X ， y ) 

( X ， y ) — ( x , Y ) 

などと、指定しても、何ら変わるところは、 

ありません。 

また 、 PUT @するとき、 GET ® したとき 

の縦横の数を変えなければ、どこへ PUT @ し 

ても、同じものが表示されます。縦横の数が 

変わっても、縦横を掛け合わせた数が 、 GET 

@したときの数よりも等しいか小さければ、 

形を変えて表示されます。 

CONSOLE 文(例えば CONSOLE 5， ll ) を 

実行後は、スクロール範囲の画面下側は、 PUT ， 

GET できません。 



できません 
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CONSOLE 0 ,25，0 ,0 :DIM A %<8) 

PRINTCHR 本く 12) " SABCDE " s PRINT 11 FGHI JK " : PRINT " LMNOPQ " 
6 ET @<0 % 0) -<5,2) 

PUT @(0,5)-<5 ? 7) ， A % 

PUT @(5、5>-( 17,6 ) ，AX 
PUT @<21,5) -¢23, 10) , A % 

PUT @<27,5) - <29,7) , A # / 

LOCATE 0.12 


eABCDE 

@ ABCDEF 6 H 

@AB 

@AB 

FGHI JK 

IJKLMNOPQ 

CDE 

CDE 

LMNOPQ 


F 6 H 

FGH 



IJK 




し MN 




OPQ 



Ok 


2-4-5 画面表示と配列の関係 

それでは、画面の内容が、配列へ、どのよ 
うに読み込まれているか調べてみましょう。 〔図表2-彳〇〕 

(1) キャラクタモードの場合 

画面左上に、右図のように表示したもの 
を読み込んで調べてみましょう。 

GET @ する範囲……(0,0)-(6,2) 

3 X 7 = 21 キャラクタ 

配列の大きさ（整数型の場合） . 

21/2 = 10.5—11 

配列は0から始まるので配列の宣言は、 

11—1— ^ DIM A % (1〇)以上を宣言します。 

次のプログラムで配列を16進数表示しま 



CONSOLE 0 ,25,0,0 :DIM AX <10) 

PRINTCHR 奉く 12)" SYSTEM " : PRINT " SOFT " : PRINT " FUKUOKA " 
6 ETS <0,0) -¢6,2 ) ,AX 

PRINT : FORI =0 TO 10 

PRINTUSING ,, AXC ##)=^ h ,， 51 s : PRINTHEXf < AX < I )) sNEXT : PRINT 


00 
0 1 


0 0 0 0 0 0 
2 3 4 5 6 0 

fl If* 1 1A IXOJL. 


00000 
0 12 3 4 
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SYSTEM 

SOFT 

FUKUOKA 


SYSTEM 
SOFT kJ 

FUKUOKA 


AX( 0)=fcch5?53 
AX< l)=&£h5453 
PC/.i 2)=&£h4D45 
AXC 3)=&th5320 
A%( 4)=«kh464F 
A%< 5)={kh2054 

A%< <6)=&ch2020 
AX く 7)=&h5546 
A%< 8)=&ih554B 
A%< 9)=&£h4B4F 
A%(10)=!^h41 

OK 

aX( 6)=&ihe4e5 


キャラクターコード表より 


530045320 

5 4 -^2 0 5 4 
0 —2020 


COLOR } &H 20 : PRINT 
CHR $(12) をしておくとス 
ペー又の部分は、 20 H とな 
る。 


Ok 

pute<20 ? 0)-(26,2) 

Ok 


> 5 9 
5 4 

4 D 

5 3 

4 6 
0 0 
0 0 

5 5 
5 5 
4 B 
0 0 


Y 

T 

M 

S 

F 


U 

u 

K 



5 3 
5 3 
4 5 
0 0 

4 F 

5 4 
0 0 
4 6 
4 B 
4 F 
41 


S 

S 

E 

ヌルストリング 
(スペース） 

0 

T 


i—i 

F 

K 

0 

A 


A %(0) の 下位1バイト に'、 S "、 上位1バイトに'' Y " といつよつに、 
画面の左上から順にスペースも含めて、1数値に2バイト（整数型）づ 
つ読み込まれていることがわかります。 

配列変数に表示したいキャラクタコードを代入して 、 PUT @で表 


示してみてくださし 


〇 



(2) ドットグラフイクスモードの場合 

画面左上に右図のように表示したものを読 


み込んで調べてみましよう。 

ドットグラフイクスなので G オプシヨンと 

します。 

GET ® する範囲は、(0,0)-(10,8) 


11 X 9 =99ドッ、 


配列の大きさ（整数型の場合) 


(99/8 + 2)72=7.5-^8 
酉己列は、0から始まるので 8 — 1 —DIM A 
%(7)以上を宣言します。 

次のプログラムで配列を16進数表示し 


てみましよつ 


〔図表: M 1〕 
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100 CONSOLE 0,25,0,0: DIMAX <7) 

110 PR 1 NTCHR 本 （ i 2); 

120 LINE <0,0)™( 10,8) , PSET,B 
130 LINE <2 J 2)-<8,6) ? PSET,BF 
140 6 ET @(0 ? 0)-(10,8) 

150 し OCATE 0,5: FORI =0 TO 7 

160 PR I NT US ING " AX ( tt ) =& ch & ;I 5 HEX *( AX < I )); 

i 70 PRINTAX ( I ) :NEXT sPRINT 


実行結果は、次のようになります 



A %<0)={ kh 63 = ?? 

AX く l)=«khFFF = 4895 
A ン :（2)=4 c * h 7 F 60= 32608 
A ン :（3)=^ hDBFB =-?221 
A ：/.<4) = achFEDF =-289 
A %(5)=6 ch 37 F 6= 14326 
AX '：6)=^ hFFS 0=-128 
A%(7)=^h7 = 7 

Ok 


012345 678910 


D 

■ 

B 

B 

D 

5 

6 

7 

0 

1 

2 

3 

4 

5 

6 

7 

0 

1 

2 

3 

4 

5 

6' 1 

7 

0 

_ 

1 

2 

3^; 

國 

5 

6 

■ ^ 

7 

〇 

D 

B 

B 

4 

5 

6 

7 

0 

. 

1 

2 

3 


総ドット数 


7654321076543210 


0000111111111111 

». ^ \ _ __ _ 

V ■ y v 

0 F F F 

7654321076543210 

0111111101100000 


7 F 6 0 


A %(0) には、ドット総数がはいり、 A %(1) 以降には、画面のドットを左上から第 
0ビットとし、ドットがある部分を1、ない部分を0に対応させた2進数を、16ビッ 
卜每に16進数とした値が入っています。 


⑶アトリビュートモードの場合 

(カラーやドットグラフィクス、ブリンクなどを含むとき 
画面左上に、右図のようにキャラクタとド 
ットグラフィクスで表示したものを読み込ん 


〔図表2-12〕 


で調べてみましょ 


〇 


y 


トグラフ ィ クスやカラー指定を含んで 


読み込む場合、 A オプ 


ンヨン 


となります。 


GET @ A する範囲（キャラクタ単位で It 定) 

(0,0)-(4,4) 

5 X 5 = 25 キャラクタ 


012 3 4 


〇 

1 

2 


4 
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CONSOLES ,25,0,8 :WI DTHS0,25 : DIMAX< 24) ; PRINTCHR^(12> 
C0L0R2:PRINt ,r @AB H : C0L0R4 : PRINT 1 ' CDE ,f : COLORS : PRINT 11 FGH M 

CO し OR0: LINE(6,0)19),PSET,B 

GET@A<0,0> -(4,4) ,AX 

PUT@A(20,3) -¢24,7) ,AX 

LOCATE8,95FORI=0TO24:PRINTUSING ,f AX(##>=^h tl ; I ; 
PRINTHEX^(A%(I)) , : NEXT SPRINT SPRINT 
PRINT n AX( >=a < ih ,i 3TRING^(6 ? CHR^<29> ); 

LINEINPUTK^ : K=yA しく K^> 

L0CATE9,CSRLIN —: l :LINEINPUTK 李 ： A ン;:く しく " ム h" + K.) : GOTO 140 


れを実行すると、 




A^( 0)^h80 IF 
AX( 5)=^h800F 
A%< i0)=&h800F 
AX(15)=&h800F 
AX<20)=& ： h80SF 


AX(l)=achS0 11 
AXC 6)=^h240 
AXC 1 D=^h443 
AX く 16)=8^h646 
AX(21>=^h80SS 


AX く 2)^hS8 1 1 
AX< 7)=^h24i 
AX< 12)=^h444 
A>：< 17>=^h647 
A/ ； <22)=^h80SS 


AV:( 3)=^hS6 I 1 
AX< 8)^h242 
AX(13)=e<h445 
A%(13>=&ch 648 
A i / ； <23>^hS0S8 


AX( 4)=&h80Fl 
AX( 9>=^h89F0 
AX(14)=&ch80F0 
AX く 19)=^h88F0 
AX(24)=^h80F8 


AX< >= ん十 _ 


の表示を、整数型配列変数に読み込んだ場合、次のような構成となります 


〇 


配列の大きさ（整数型の場合) 


25 X 2/2 二 25 


配列は、0から始まるので 25- 1 —DIM A %(24) 以上を宣言します 


〇 


次のプログラムで配列の内容を見てみましよう 


0 


G 6 

ly 1 * 


@0000000 
2 3 4 5 6 7 8 C 一 
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〔図表 2-13〕 


厂（下位）キャラクタコード 
— または、グラフ イッ クコー 

A %(0) = & H 801 F 

t 

(上位）アトリビュートコード 


ド 

アトりビユ ー トコ^ 一" ドがグフフイックモード 
のとき、画面の1キャラクタ分は、下図のよ 
うに8ドットに分割され、8ビットコードと 


して、 V-RAM や、 GET @ した時の配列内へ 


アトリビュート コー ドは、 V - RAM のアトリ 格納されます 

ビュートエリアと同じ表現であり、上の例で 


は、白黒モードで、 80 H (第7ビットのみ1 ) 
なので、グラフィックモードということにな 


白黒モードのとき 




カラーモ ー ドのとき 



このビットが0か1かで2通りある。 

来 G …グラフイックモ _ ド 
C …キャラクタモード 



A %(16) 二 &H 6 4 6 



すなわち、データとアトリビュートが1バイトづつ格納されており、ふつうのキャ 
ラクタモードの2倍の配列が必要になるわけです。 

前記プログラムで、 A %(_) = &H _に適当な配列 No . と16進データを人れて、右 

側のグラフィック表示がどのように変わるか試してください。 

また、行番号100および120を、 

100 CONSOLE 0,25,,1 
120 COLOR 7_： LINE . 

と変更し、カラーモードについても試してください。 
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2-4-6 画面任意の位置の色を判定する方法 

GET @ A ……が配列に読み込む数値から、画面の任意の座標 （ キ 
ャラクタ単位）の色やその他の情報を知ることができます。 

GET @ A ( X , Y ) — ( X ， Y)，A % 

を実行すると、 A %(0) の2バイト （16 ビット）のデータは、例えば、 
カラーモードのとき、次のような構成になっています。 



〔図表彳 2- M 〕 


■ 


m 

MM 

m 


KB 

Kl 


mm 

B 

HI 

B 

wm 

— 

mm 



B 

■ 

■ 



□ 


■ 

■ 

■ 

■ 

■ 


■ 


アトリビュートコード 画面のキャラクタコード 

または、グラフイックコード 

格納アドレス VARPTR ( A %(0)) + 1 VARPTR ( A %(0)) 


したがって、例えば、表示色を知りたいときは、その情報が上位3ビットにあたるので、 

C 二 PEEK ( VARPTR ( A %(0))+ 1)¥32 

とすれば、カラーコードの 〇〜 7が(堂に入ります。 


また、 

G = A %(0 )AND &H 1000 

とすると、 


G = o のときキャラクタモード 
GOO のときグラフイックモード 

となります。 


2-4-7 画面に大きくキャラクタを表示する方法 


画面に、 8 X 8 のドットグラフイクスでキ 〔図表 12-1 5〕 


ャラクタを表示しようとする場合、右図のよ 


8X8 =64—A%(0) 


うに 8 X 8 のマス目に表示したいパターンを 



描き、それを配列にします。 

大文字の 、 V P 〃の 場合、次のようになります。 

A %(0)=64. ドット数 

A %(1)=& H 423 E 
A %(2)=& H 3 E 42 
A %(3)=& H 0202 

A %(4) 二 & H 0002 注）下位•上位の順を間違え 

ないようにすること。 



3 E' 

4 2- 
4 2 ■ 
3 E. 
0 2 - 
0 2 - 
0 2 - 
0 (K 


k%{\) 
A % ⑵ 
A % ⑶ 
A%(4) 
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これを、表示したい任意の位置 （ X， Y ) に PUT すれば良いわけです。 

PUT @_( X ， Y ) —(X + 7, Y + 7 )， A%，PSET 

パターン データを2次元配列 A %(3,200) などに読み込み、必要なときに、 

B %(0)=64 : FOR i = 0 to 3 : B %( i +1 )=A %( i ， j ) : NEXT 
PUT @( X , Y)-(X + 7, Y + 7 )， B%，PSET 

として表示するのも一つの方法でしょう。 

下覧に、キャラクタのパターンデータ （16 進数）をリストしておきますので、利用して 


ください 


〔図表 12-16 〕キャラクタフォントデータ表 

ASCII ad) a(2> a(3) a(4) ASCII a(l) a(2) a(3) a<4> 

20 9888 0908 1088 8686 56 リ 4242 2442 1824 9018 

21! 1918 1018 mi 0018 57 N 4242 5A42 665A 9842 

22 1 2424 8024 8008 0900 58 X 4242 1824 4224 m2 

23 * 2424 2m 247E 0024 59 Y 4444 3344 1018 0810 

24 $ 7810 3814 3C50 0818 5A 2 487E 1820 8204 907E 

25 t 4666 \m 6m 8062 5B 【 843C 0404 8484 083C 

26 k 120C 0C12 2252 885C 5C i 4 州 7C23 7C10 8010 

27 / im 0008 8088 8080 5D ) 2830 2820 2820 8830 

28 ( 1028 0808 1008 0828 5E A 2810 8844 0_ 8008 

79 ) 9864 1018 8818 8984 5F - _ 8960 _ 807E 

2A X 5410 FE38 5438 0816 68 v 8080 0800 0000 6889 

2B + 1080 7C10 1810 mm 6\ a _ 293C -223C 8050 

2C , 0806 0880 1000 0818 62 b 0202 463A 4442 603A 

2D - _ ?m _ 0908 63 c _ 423C 4262 0830 

2E . 0060 0088 1800 8818 64 d 4948 625C 4242 885C 

2F / 40 抑 〗828 8488 8002 65 e 0880 423C 027E 893C 

38 8 423C 5A42 4246 083C 66 i 4838 3E88 Q808 0S93 

31 118]0 1814 ieia 887C 6? g 9080 62% 5W2 3C48 

32 2 423C 3940 020C 88?E 68 h 0202 463A 4242 0842 

33 3 423C 3840 4240 883C 69 i 0610 18131818 0838 

34 4 3020 2428 207E 8820 6A j 0820 2038 2820 1C22 

35 5 027E 20 IE 2240 6910 6B k 9202 1222 _ 0022 

36 6 0438 3E02 4242 083C 6C I 10181810 1010 0038 

37 7 427E 1028 8808 0808 6d n 0000 926E 9292 0892 

38 8 423C 3C42 4242 083C 4E n 8886 443A 4242 8042 

39 9 423C 7C42 2840 88IC 4F o 0888 4230 «42 083C 

3A : 0888 8019 1098 70 p 0098 463A 3A 似 0282 

38 i 8880 68181688 8310 ?] q 綱 0 6250 5C42 側 

3C ( 1878 UK me 0870 72 r _ 443A 0202 0002 

3D = 0 刪 007E 807E 0000 73 s 0808 6270 483C 083E 

3E )188E ■ 1830 _E 74 t 0888 033E 4803 8038 

3F ? 423C 3840 _ 0888 75 u 8096 4242 6242 005C 

48 8 4438 mi 0432 6678 76 v 8800 4242 2442 0818 

41 A 2418 7E42 4242 8042 77 w 8088 9292 9292 806C 

42 B 443E 3C44 4444 803E 78 x 0800 2442 2418 0042 

43 C 4438 0202 4402 8033 79 y 0880 4242 5C42 3040 

44 D 24IE 4444 2444 00 IE 7A 2 0000 207E 3418 M7E 

45 E 817F 3F0I 0101 807F 7B { 0870 8408 0388 0878 

A6 F 017F 3F01 0191 剛 1 7C ! 1018 6808 1800 0818 

47 G 4438 7282 4442 8038 7D ) J88E 2810 1016 08BE 

48 H 4242 7E42 4242 0042 7E v 920C 關 0000 0008 

49 I 18381810 1010 8033 7F 0000 _ 8680 

4A J 2870 2026 2220 081C 80 _0 0_ 酬 FF00 

AB K 2242 8E12 2212 8042 8i _ 8 剛 0 綱 8000 FFFF 

4C L 6202 0202 0202 007E 82 _ _ 0000 FF88 FFFF 

4D M 66A2 5A5A 4242 0042 33 . 8080 3088 FFFF fFFF 

€ N 4642 524A 4242 0042 94 ■ 0080 FF08 FFFF FFFF 

4F 0 2418 4242 2442 0818 35 | 8088 FFFF FFFF FFFF 

50 P 423E 3E42 0202 0802 86 | FF80 FFFF FFFF FFFF 

51 Q 2418 4242 2452 8058 87 _ FFFF FFFF FFFF FFFF 

52 R 423E 3E42 2212 0042 83 ] 01018101 01018101 

53 S 423€ 3C02 4246 8030 8? | 8383 0383 8393 8383 

54 I I07C 1010 1010 0010 8A 1 078? 0707 6797 8707 

55 U 4242 4242 4242 mC 8B | 0F0F 9F0F 8F0F 8F0F 


DEFINT A : A (0)=64 

ASCII a(i> a(2) a(3) a(4) ASCII aU) a(2) a(3) a(4) 

8C I IF IF 1F1F IF IF IF IF C2 V _0 4A4A 1820 088E 

8D I 3F3F 3F3F 3F3F 3F3F C3 7 803C 187E 0818 8804 

3E I 7F7F 7F7F 7F7F 7F7F C" 0868 1888 0828 0008 

8F 4 1010 1818 18FF 1818 05 i 1010 J07E 6816 0004 

90 ュ 1010 1919 08FF _ C6 : 3C80 0000 00fl0 807E 

91 T 0088 0000 18FF 1818 C7 ? 7C00 2848 2810 9044 

92 H 1010 1818 10 IF 1018 C8 ? 7Ctfl 1020 5438 0110 

93 \ 18161810 I6FB 1016 C? J 4M8 2848 9816 0884 

94 - 00FF 0000 0006 _ Cft i\ 1008 4828 4242 0842 

95 - 0808 6888 ㈣ FF 8080 CB t 8282 827E 0282 087C 

96 | 1010 1810 1016 1018 CC 7 7E00 4040 1828 0008 

97 1.8830 8888 8880 8880 CD ， _ 2214 獅 6008 

?8 r eeae 0090 ibfo 1010 ce t 7 cia 1010 5454 0010 

9? ^ _ 6080 I01F 1010 CF マ 407E 2040 0814 6016 

9A t 1010 1010 00F0 9060 m l 3C00 3C80 3E80 0840 

?B J 1018 1818 08IF _ D1 L 6816 2204 7E42 8040 

9C f 8886 0889 20C0 1010 D2 / 4_ 2840 2310 0006 

90 、8088 8800 8483 9883 D3 f 7EB6 Tim 8388 0878 

?E ^ 1918 C828 祕 80 0880 D4 ? 0404 447E 0494 0804 

9F ノ 0808 0384 0168 0000 D5 1 3C80 2820 2828 087E 

m 08 ⑽8000 m% 0080 D6 3 407E 7E40 4040 087E 

AJ • 0000 0000 H1C mC D? ? 0030 mi 1820 0808 

A2 r 0838 8808 _ 8800 08 V 4242 4242 2048 0018 

A3 j 8080 10881018 681C D? I HI4 5414 3454 0012 
A4 v 8600 0080 0884 8018 DA l 8434 4404 1424 8800 

A5 - 0000 1808 0018 mm DB 0 ?E08 4242 4242 B87E 

A6 ヲ 7m 7E40 2040 001C DC 1 7E80 4242 2040 0018 
A7 7 08ie 4i7C 1630 8968 0D > 8EB8 Am 1820 868E 

A8 4 0000 2040 2830 0620 DE ' 1288 0004 0000 刪 0 

A? •) 刪 8 7C18 4844 0938 DF ' 8A0E 880E 0000 0000 

m i 8030 7C00 1810 007C E0 - 8090 80FF FF08 洲 80 

AB 1 8080 7C28 2830 0824 El \ 1818 \m F018 龍 

AC ， 0 剛 7C08 2848 8888 E2 i 1010 18FF FF18 1810 

AD a 刪 8 3800 2020 m?t E31 1816 16IF 1F10 1819 
AE 3 0000 407C 407C 887C E4 i C830 RE8 FCF8 FfFE 

AF ， _ 5400 4054 8830 E5 k _ 8F87 3F1F FF7F 

B0 - 0000 7C00 0080 0800 E61 FEFF F3FC E8F0 30C0 

B17 407E 2340 0818 0804 E7 f 7FFF IF3F 878F 0183 

82 4 2040 1810 1214 0810 E8 4 3810 FE7C 38FE 087C 

B3 0 7E10 4242 2848 001C E? f FE6C FEFE 7CFE 1833 

B4 I 7C80 1010 1018 8070 EA ♦3818 FE7C 337C 8010 

B5 K 7£i0 \B\% 1214 0018 EB 4 3833 FEFE 1806 887C 

56 Jl 7E08 4848 4848 0924 EC • 3C80 ?E7E 7E7E 003C 

B717CI0 ?C10 1010 0818 ED 0 3088 4242 4242 803C 

B8 1 4478 2842 0810 0004 EE / 4080 1020 0408 8102 

B? ) 7C04 18121818 0088 EF \ 9281 8304 2018 測 

BA 1 ?m 4048 4840 807E F8 X 4281 1824 2418 8142 

BB 9 7E24 2424 1020 8088 FIR 92FE FE?2 3232 0882 

BC V Um 4600 2840 89IE F2 l 7E02 3CI2 7E14 6818 

B0 2 487E 1020 2418 _2 F3 月 MFC 84FC 84FC 0832 

BE t 7F82 2242 0202 087C F4 B 427E 7E42 4242 007E 

BF V 4242 _ 1020 088C F5 «* 7720 F725 F745 4050 

C0 う 4478 2844 0818 0004 F6 9 1800 4224 283C 0024 

Cl f 2088 181C J87E 0E18 F? I 485C E8FE 4A0C 8028 
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DIMAX< 16) : AX< 0) -256 : FORI-1TO 16 : READA 售 .: AX( I) =WL nh " +A 去〉： NE ハ T 
DATA IF80 T 0 37E ? 0884 ? 0 483 ? 7FFF, 480 1 ,48A?,5129 
DATA 1^24 ， 0?C0 ^0020 ,0FFS, 0426 ,02C6 ，0 30 0 ? 7CFE 
PUT@( 0 y 0> -C 15 ? 15) ， A: • く ， PSET 


2-4-8 漢字をドット表示する方法 

キャラクタの場合と手法は同じですが、漢字の場合、 16 X 16 ぐらいのマス目が必要とな 
ります。表示したい漢字の ノぐ夕 ー ンを描き、 A %(0)に全体のドット数 (16 X 16の場合は25 
6) を人れ、 A %(1) から 順に左上隅を第〇ビットとする16進数を、配列に書き込み、 PUT 
@します。 


次のプログラムは、右図のような、〔愛〕 
という漢字を表示するものです。 


0 12 3 


15 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 


t««a»9 







着 it •尊 




〔画面表示後のスクリーンコピー例〕 


it 


i 


14 


• i 


• • 


16 


«9999 tft 響雪 99 鑄 


1 F 8 0 
0 8 7 E 
0 8 8 4 
0 4 8 8 
7 FF F 
4 0 0 1 
4 8 A 9 
512 9 
14 2 4 
0 7 C 0 
0 0 2 0 
0 F F 8 
0 4 2 6 
0 2 CO 
0 3 0 0 
7 CFE 


0 0 0 0 
0 12 3 
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2-5. POS , CSRLIN 


プログラム実行中に、画面上で、力ーソルを移動させる場合、現在位置しているカーソ 
ルの水平位置と垂直位置を POS , CSRLIN で知り、その値を増減することで、任意の場所 
へ移動することができます。 

X = POS (0), Y = CSRLIN 〔0はダミー〕 

LOCATE 10,10： PRINT ” ABCDEFG ”；： X = POS (0 ) : Y = CSRLIN : PRINTX，Y _ 

とすると、 ABCDEFG の後に1710が表示されます。文中の；を取り除いてやると、次の 
行に011が表示されます。このように POS , CSRLIN 命令直前の、ステートメントが実 
行された後の力ーソル位置を知らせます。 

では、次のプログラムで、カーソルを移動させ、画面の上に力ーソルの現在位置を表示 
させてみましょう。 

10 PRINT CHR$(12) : LOCATE 20,0 .-PRINT K X= Y= n 
20 LOCATE 8,0:X=POS(0> :Y=CSRLIN 
30 K»=INPUT$(1> 

40 IF Kt=CHR$(28) THEN X=X+lsIF X>79 THEN X=?9 

50 IF K*=GHR$C29) THEN X=X - i:IF X<8 THEN X=0 

60 IF Kf=CHR$(30) THEN Y=Y-1:IF YC0 THEN Y=0 

70 IF K$=CHR*(31) THEN Y=Y+1:IF 丫 >24 THEN Y=24 

80 LOCATE X，Y 

100 X1=POS(0) :Yl=CSRLINsLOCATE22,0:PRINTXl:LOCATE29,0:PRINTYl 
110 LOCATE Xl f Yl 
120 GOTO 38 

ここの CHR $(28)、（29)、（30)、（31) は日 □□□ キーのアスキーコードです。 この 
プログラムでは、カーソルの位置（ X ， Y ) に1を加えたり減じたりしていますが、別の 
数字に置きかえてみると面白い操作ができます。 

上のプログラムに画面へ文字を書き込む機能をつけ 加えましょう。 

95 IF K*>CHR*(32) AND K$<CHR$(247) THEN GOSUB 130:6OSUB 140 
130 Z*&HF300+128XY+X;RETURN 

H0 POKEZ,ASC(K$):X=X+4 sLOCATE X,YsRETURN 

130行の2 = &11ド300 +120兴丫+乂は、80桁モードでの現在のカーソル位置（又/丫）に 
相当する VRAM の位置で、入カコードを直接書き込みます。 

更にカーソルを任意の位置に動かし、画面上の文字を抽出する機能を付け加えましょう。 

98 IF K*=CHR$( 13> THEN GOSUB 138: 60SUB 158 

150 LOCATE 0,20:PRINT ウシツ ZA t シ，ノ A B INPUT CN:M*=" 

166 FOR 1=0 TO CN-l*M$**1$+CHRi(PEEK<Z+I)):NEXT 

170 LOCATE 0,2isPRINT SPACED(80)sLOCATE 0,21:PRINT M$:LOCATE X ， Y:RETURN 
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RUN させて下さい。 

文字列を書き込んだ後に、カーソルを文字列の中に入れて、 RET キーを押し、さらに、 
抽出したい文字数を人力して再度、 RET キーを押すと、望む文字列を抽出できます。 


2-6 .画面表示と消去 


画面の任意の位置に於て、データを人力したり、表示したり、または、画面の一部分を 

消して、再度記人、表示する場合、 LOCATE 、 TAB 、 SPC 、 SPACE $、 STRING $, LINE 

等を上手に使うと、画面が壊れたり、チラついたりせず、感じの良い、画面操作が行えま 
す。要点をまとめると、下図のようになります。 


左端から X 桁目の次 
から表示したいとき 

TAB(x ) 


枠はそのままで内容 
を消す時 
SPACES ( x ) 


locate 文で桁、行を指定 


08 





m///y////M 




前の文字列との間に x 個 
の空白をあけたいとき 

SPC(x ) 


広い面積の内容だけを消す時 


line ( xi , yi )-( x 2 , y2 ). 


，BF 


1 文字以上 256 文字以内 

の表字内容を消す時 

SPACE $ ( x ) 又は STRINGS U ，32 ) 


但し、 X は0から255の 
数字であること。 


LOCATE で画面に書き込まれる場合と、 TAB で書き込まれる場合の違いは次のプロダラ 
ムを実行し、対応する VRAM 内容で確認して下さい。 


ABCDEF 


GHI し 


MNOPQR 


ST し M4X 


Ok 


list 

10 LOCATE 
20 LOCATE 
Ok 


0,0 : PRINT TAB(10) ; f, ABCDEF H ;SPC(16> ; H 6HI JKL 
42,0 SPRINT 11 MNOPQR 11 ;STRING#< 10,32) ; 11 STUMWX 


dc 2 8 0 

4 4 5 5 0 

5 B 17 0 
4 4 5 5 0 

4 A 0 6 8 
4 4 5 5 0 


3 9 F 

4 4 4 


5 0 
5 0 


0 

0 


2 8 E 4 
4 4 4 5 

1 7 D 3 0 
4 4 4 5 0 

6 0 0 0 0 
22020 

8 0 0 0 0 

2 2 8 2 0 


0 0 0 0 0 
2 2 0 2 0 

0 
2 


0 flw 0 
2 0 2 0 


@00 0 0 
2 2 0 2 0 

0 0 0 0 8 
2 2 0 2 0 


0 0 6 
2 2 0 


0 0 
2 0 


F 


0 0 0 0 0 
2 2 0 2 0 


400000 

322828 

F 

*00006 

022020 

0 

3 0 6 0 0 0 

n F 0 1 2 3 4 
o D 3 3 3 3 3 
mMFFFFF^ 
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TAB で表示位置を指定すると、 PRINT 文が実行される位置から TAB で指定した位置 ま 
で'、 20 で 埋められます。 （20 は空白の CHR $(32) のア スキーコードです） しかし LOCATE 文 
では直接位置を指定するた め、00 のままです。 スクリーンコピーす る場合、 ダイレク トに 
POKE & HEA 58 ，l を 実行し、ファンクション キー け， 9 | キーを押せば コピー できます。 00 
を 20 に変えておかなければ、画面上の空白は 無視されてコピーされます 。 POKE & HEA 5 A , 
& H 20[^ UZI キーで背景は「00」から「20」に変ります。 

文字数の異なる入カデータをそろえて表示する1つの方法として、文字数の上限を設定 
しておき、人力文字が、上限に満たない部分は スペースで 埋めて、"，〃または、、；" で 表示 
させます。 


10 FOR 1=0 TO 5 

28 PR I NT I 5 ; INPUT A4* < I ) 

30 IF し E 卜 THEN 20 
46 NEXT I 
50 FOR TO 5 

60 PRINT <J> ;SPC< 10~LEN<A^(J> >); 
70 NEXT J 


このように、 SPC , SPACE $， STRINGS の （） の中で変数、数式も使うことができます。 

応用例として、次のプログラムを紹介します。消去のプログラムはサブ ルー チンとして 
おけば便利です。 

10 LOCATE 10,10 iPRINT ,f 
20 LOCATE 10,11 SPRINT __ 

30 LOCATE 10,12: PRINT 11 

40 LOCATE 10,13:PRIMT " 

50 LOCATE 10,14:PRINT H 

60 LOCATE 10,15;PRINT " 

70 LOCATE 10,16: PRINT _■ 

80 LOCATE 12,15 sCOLOR 2:PRINT : COLOR @ 

90 LOCATE 12,1S;INPUT A:GOSUB 170 j LOCATE 12, 15;PRINT A 
100 LOCATE 28,15sC0L0R 2sPRINT 11 ? M : COLOR 8 
110 LOCATE 12,18:INPUT B:GOSUB 176 iLOCATE 28,15:PRINT B 
120 FOR 1-0 TO10 : LINE<86+I,44+1)118^1 f 63-I> ,PSET.B 
130 FOR J=0 TO 100:NEXT J iGOSUB 180: NEXT I 
140 GOSUB 190 s し OCATE ： 48,13:PRINT 11 END ! ! r, 

150 LOCATE 0,0 : END 

16B ，- -- SUB ROUTINE --- 

170 LOCATE ： i 2,1 8:PRINT SPACES ¢5) : RETURN 
180 し INE く 43, 11> -¢59, 15) ， Jl 11 ， BF: RETURN 

190 LOCATE I t f ISsPRINT SPACED< 14) : LOCATE 27 P 15:PRINT SPACED<15) : RETURN 
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2-7 .グラフ作成 


グラフ表示において考えねばならないことは、水平軸、垂直軸の単位の設定と目盛のと 
り方、それに、計算結果の表示位置の問題です。 


〔図表〗 2 - 16 〕 



紹介するプログラムでは、変数名とその最大値を入力すると、自動的に目盛られ、変数 
名、最大値が表示されます。次に、データをその範囲内で入力しますと、ドット表示の場 
合は1ドットづつ表示され、折れ線の場合は、直前に人れたドットと次に人れたドットが 
直線で結ばれます。 

データのプロットは、それぞれの軸に対して 



により、グラフ上のポイントを出します。次に、スクリーン上の座標にセットするため 
にグラフの原点座標分だけ、増減すると、表示すべき位置にポイントをセットできます。 
グラフ作成 プロ グラムの流れは次の通りです。 
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スタート 




il fSSS&WW 


2 VW 


S ffi 鼠 




56 LI«( 17,7)-(97,87), 



B 


B^B 1• GQSUB 310 

78 I=8:F0R X2=17 TO 98 STEP SI 
80 LINE(X2,86)-(X2,87).PSET 
98 X4=X2/2-l:Y4=22:L0CATE X4 t Y4:PRINT 


X ノ /W 





108 B=B2:00SUB 316 / - 

110 I=0:FOR Y み 87 TO 7 STEP -SI 
128 LINE(17,Y2) *(18^2),PSET 
138 Y4=Y2/4:X4=5:L0dATE X4,Y4:PRIfff 


Y / m 


I;:I= 卜 1 : NEXT Y2 


140 LOCATE 
158 LOCATE 
160 FOR 
179 LOCATE 


TE 29.23:PRINT NA$(1):TAB(47) : USING*###*:B1 
TE 1,1:PRINTUSING , «#I( , :B2 
M TO ( 關 5) ， J ， 1> 


i 




1 明 Z=8 


i 




199 LOCATE50 f H:PRIM[ B 7'^ X 
208 L0CATE55,llsIWUT XUL0CATE48 
218 LOCATES ， 11:PRIKT SPACE$(15) 
228 LOCATE 55,125 PRIMTUSIN6 - «## 


f 


r- ラノ zaiw 


llrINPUTYl 

#ir;Xl;Yl 


238 X1=XK88/B1:Y1=Y«80/B2 


235 X1=X1+17:Y1=87-Y1 


雞 JP 


ZO0 1 ’THEN 


t 


LINE0<2,Y2)-(X1,Y1) ,PSET 




26» Z=Z+1 


孤 ™ 麵 50 ， 20 細 


290 IF №=1 THEN Z=0 
380 6010 190 

310 »=STR$(B) :C$=IEFT$(C$,3) : C 视 (Ci) : SI=898/C:RETURN 


上の プログラム 例では、 x 軸、 Y 軸の変数の値を指定しましたが、 X を変数とした Y の 
関数を、190行〜220行に導入することにより、関数プロットが出来ます、上の例では、ド 
ット、折れ線グラフでしたが、棒グラフへの表示変更も簡単にできます。 
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テ、ヲノテイ t イシ77力 Cy / n ) ? y 
7414 ?k 3ウ J 卜「レ，;^ ラニ： I ウ y 3 ク 


沉用性のある2次元配列へのデー 


夕入カプログラムを紹介しましょつ。 

任意の行、列、データの最大文字数 
を入力することにより、行列表が表 
示されます。 

書き込む位置が一目でわかるよう 
?マークをその位置でブリンクさせ 1 
入力時のエラーにより画面が壊われ 
るのを防ぐ為に下に スクロール ウイ 
ンドウを設けました。 

配列の添字と、 LOCATE 文の列と行番号を対応させることにより入力、訂正の位置指定 
が楽になります。 


スクロール 

ウインドウ 


10 INPUT " レ 广 7 デ； L:X=M 夫 （ L+2)+5 : PRINT X: P$=STRINGf (L ,35) 

20 IF X>7? THEN PRINT ■ そゲ 7 ウ（し）ラ子イサク 7A 力，レツ （ M) ラチイ ■ サクシナ ，，： GOTO J0 
30 INPUT’T 3 ウ 11 ;N: IF N+5> 17 THEN PRINT H ウ U 、 J:> ヲ f^(V? シナサイ 1, : GOTO 30 
58 PRINT CHR$(12):60SUB 400: CONSOLE 20，4 

60 FOR 1=] TO N:F0R J=1 TO H;GOSUB300 : GOSUB200 : NEXTJ,I : 60SUB328 
100 CONSOLE 0,25:END 

200 C0L0R2 : LOCATEXI,YJ : PRINT B ?” ： COLOR0 f -- -sub 

210 LOCATE 0,28: PRINT SPACED(255) 

220 LOCATE 8，20 : INPim 、 ラ ” ； A#( I , J> 

230 LOCATEX I ,YJ:PRINT SPACED (L+D 

240 LOCATEX I + 1,Y J; PR INTUSING P$ ; A# U ， J) : RETURN 


300 XI = (J-l>HL+2)+5: 丫 J=I + 5:RETURN - - su b 2 

320 11 u / - s* j b 3 

325 LOCATE 0 ， 21: PRINT w デ-ラ ノ i4tA シマ 7 力 (y/n” ； Q 李；： INPUTQ 法 
330 IF 0$=^ 11 THEN RETURN 

340 PRINT ••ライ它イ 7 ル r r V r i ' n )^ 二]ウリヨ尸 ， - su b 4 

350 INPUT!,J:G0SUB 366 :GOSUB200:GOTO320 

400 FOR 1=0 TO M-! : LOCATE CI^(L+2)+4+L),4:PRINT 1+1 : NEXT 


410 FOR 1=1 TO N : LOCATE 2,1 + 5:PRINT USING"## lf ;I : NEXT : RETURN 


データ マトリックス （ 2 次元配列） へのデータ 入力 


U ： 


5 J 56254 
7554,68 
3 223 


d— 934380 
7-4s7- 0 ,o 
2 6443 


3 0544 i 6 
4 3953 
3 323 


_N 757912 
137751 
4233 


i-56853 

C03 1CM 3 
2 6/62 


123456 
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第 3 章キー入力 


3—1 フアンクシヨンキー 

3-1-1 メモ 1 J 一 上の格納状態 

3-1-2 ROM 内の格納状態 

3-1-3 内容の定義の仕方 

3- 1-4 キーポインタとキーフラクの使い方 

3-1-5 長いメッセージの場合 

3-1-6 DATA 文の自動作成 

3-1-7 メモリー領域への直接書き込み 

3-1-8 DATA 文からの書き込み 

3-1-9 キー選択 

3-2 キー入カステー トメント 
3-2-1 INPUT 
3-2-2 INPUTS 
3-2-3 LINE INPUT 
3-2-4 INKEY $ 

3-2 - 5 INP 

3-2-6 WAIT 

3-2-7 キー入力比較表 

3-2-8 キー入カステ ー トメントの使い方 

3—3コントロ ー ルキー 

3-3-1 コント□ールコード 

3-3-2 コント□—ルコード表 





弟 3 早キー入力 


メモリの内容の 20〜 F 7 
をキャラクター表示したもの 


0 16179 09 06 00 00 


00 06 00 4175 74 6F .. ^ - - -auto 

00 00 00 67 6f 20 74 - - - -go t 

00 00 00 6C 69 73 74 〇 . list 

09 00 00 72 75 6E 8D ..run. 

00 00 06 74 69 6D 45 •…•… ■■■•time 

06 00 08 6B 65 79 20 $ ..key 

88 00 00 78 72 69 6E .prin 

00 祕 80 6C 49 73 74 t ……•… list 

00 00 00 63 6F 6E 74 •. -cont 

00 00 00100 2F B? C ? . 卜，宇ノ 


ファンクシヨン キーの境界のための 「 00j 


mon 

*DEA70,EB1F 

EA?0 00 00 00 00 80 08 00 86 
Ea80 00 00 00 00 00 00 00 

EA90 20 00 60 00 00 00 00 00 

EAA0 6F 20 60 0d 08 00 86 00 

EAB0 20 ee 00 00 00 00 00 80 

eac 0 m @0 0d e@ 00 0e ee 00 

EAD0 24 00 00 00 00 0@ 00 00 

EAEd 00 03 00 ee 00 00 06 03 

EAF8 74 20 00 00 00 00 00 00 

EBea 2E m ie ie 00 ee 00 ee 

EBie @D @0 00 00 00 80 00 00 

■ ri 


1 つのファンクシヨンキーには16 Byte 使用されていますが、最後の1 Byte は次のファン 
クションキーの内容と区別する為に、_動的に「00」が書き込まれます。ユーザーは、15 
Byte 、 すなわち15文字しか定義できなく、それ以上は無視されます。 


3-1 .フアンクシヨンキ 




3-1-1 メモリー状の格納状態 

KEYLIST でファンクションキーの内容を表示してみると初期設定では、次のようにな 


ってます 


0 



auto 

: ド 
• 秦 _at 

■•urii ；； 


11 rne $ 

< e m 

print 

c 0 n t S ： 


これらはメモリー上には、 EA 7 C 番地から EB 1 B 番地に格納されています。その状態をモ 


二夕ーモードで調べることができます 


〇 


ftw »y CD CP CD Aw 
0 0 -Hw Aw -Hv OD 
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3-1-2 ROM 内の格納状態 

N - BASIC の ROM 内の3 A 81番地から3 B 20番地までにも、前頁と同じ内容が格納されて 

いますので、モニターモードで表示してみましょう。 

mon 

关 D3ASI.3B20 

3A81 09 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
:3A?0 00 6175 74 6F 20 0 0 0 0 0 0 0 0 00 00 00 0 0 0 0 00 
3AA0 00 67 6F 20 74 6F 20 00 00 86 00 00 00 00 00 00 

3AB0 0 0 6C 69 7:3 74 20 08 00 06 00 00 00 00 00 00 00 

3AC0 00 72 75 0D 00 60 00 00 00 00 00 00 00 00 00 

3AD0 00 74 6? 60 65 24 00 00 00 00 00 00 00 00 00 00 

3AE0 00 6B 65 79 20 00 00 00 00 00 00 00 00 00 00 00 

3AF8 0 0 70 72 6 l ? 6E 74 20 00 00 00 00 00 00 0@ 00 00 

3600 W0 6C 6? 73 74 2E SD )E IE 00 68 00 06 06 60 60 

3B10 00 63 6F 6E 74 0 0 0M 00 00 0 0 «0 0 0 0 0 00 0P) 00 

3820 00 


これは PC をスイッチオンした時、ファンクションキーのイニシャライズに使われていま 
す。これを用いて、プログラム中あるいは、ダイレクトに KEY コマンドを使って、イニシ 
ャライズするよりも、次に示す、ステートメントを実行する方が、はるかにスマートな方 
法です。なお、このステ ー トメントの実行後 、 I SHIFT |キーを押すか、または WIDTH を 
実行するとイニシャライズされたキーの内容が表示されます。 

F 0 R I ^ 0 T G 15 V : P I * K E H E 7 A 7 C ^ 1 , F ' E * E K (^ H 3 A B 1 ^ l ) r N EXT I 

3-1-3 内容の定義の仕方 

ファンクションキーは、''"で囲まれた文字列とコントロールコードを「+」する形で、 
定義することができ、一種のプログラミングができます。 15 文字内で定義できないときに 
は、境界を示す「00」に POKE 文でキャラクタを書き込んでやることにより、隣のファン 
クションキー領域も使用できます。 

■10 A $= CHR $< 13> i 二: HR ■丰イ 28) : C ^= CHR ^(30> : D^=CHRf < 34) 

-：' 0 PRINT '* F -™ .1 K (?y ヲオシナサ.- 1 •’ ！ ！ n 

30 KEY 1, M pr x n t 1j + D*f- + n 1oacT + D 弟 ++ C 辛 • + Bt. 

4@ KEY 2 , + E 卜 $■+ 11 f i 1 11 + A . 丰. 

58 POKE ikHEASB , 2 S 


このサンプルプログラムは、自動的に他のプログラムを 口ー ドする例で’、 40 行の file の 
個所を、ファイル名になおしますと、望むブログラムをオートロードできます。 

なお、 CHR $(28)、 CHR $(30) は カーソル 移動の コントロール コードです。 モニター モ 
—ドで、 f .1、 f .2 の内容を調べてみましょう。 
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〔図表 3-1 〕 





on 

关 DEA 7 C < EA?B 
EA 7 C 70 72 6? 6 E EA ^ B 

EpiB & 74 22 6 C 6 F 61 64 22 0 D iE iE iC [1 C 
EA ?0 66 6? 6! 二： 65 80 00 @0 00 00 06 00 98 


1 C 1 C 1 C 22 


境界を示す「00」が 1 C 〔 CHR $(28)〕 と書き換えられ、 f -1 と f -2 がリンクされています。 
れで f . l を押すだけで、 f . l と f *2 の内容を実行（表示）することができます。 


3-彳_4キーポインタとファンクションキ ー フラグの使い方 

今までは、ファンクションキーを必ず押さなければ、キーの内容が実行されませんでし 
たが、ポインタとフラグを使うことにより、自動的にキーが押されたと同じ動作をさせる 


とができます。次は自動的に LIST するプログラム例です 


〇 


10 KEY I 


] ist H + CHR $( 13 


29 

30 

i j k 


POKEJkHEDCS f lkH 7 C : POKEikHEDC iHEA 
P 0 KE ； ecHEA 6 S ,1 


run 
0 k 


10 KEY i , ” i s t " + CHR «-< 13) 

29 P 0 KE ! kHEDC 8 ‘,: WH 7 C : POKE :: 

30 POKE ^ HEA ^ S ,1 

0 K 

キーポインタは EDCO と EDC 1、 キーフラ 
グは EA 68 で、初期値は、「00」です。 

N - BASIC は ファン クシ ョン キーが押され 
ると、どのキーが押されたかを判断し、キー 
ポインタの値:を EDC 0 (下位）、 EDC 1 (上位） 
に入れます。 

それで、キーポインタに_、使用するファン 
クションキ ー の先頭番地を入れてやり、キ ー 
フラグに1を立ててやると、プログラム実行 
後、ファンクションキーが押されたものとみ 
なされ自動的にその内容が実行されます。 


kHEDCi ,fkHEA 


〔図表3-2〕 



t 



•1 
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3 - 1~5長いメッセ ー ジの場合 

ファンクションキー領域を使わないで、 プロ グラムのフリ ー エリ アにメッセージを格納 
し、ファンクションキーポインタにその先頭番地を入れ、キーフラグを立ててやることに 
より、254文字以下の长いメッセ ー ジを出力表示することができます。 

10 I NfIJT A $* 1 Q = L EM ( A *$*> : FUR S = i TO Q 

29 T . れ MI D . 李•く A •辛'，: 5 パ） 

30 P s こ i K E ^ H A 0 8 0 ，卜 S — i $ A S i: ペレあ ）： hi E，. X 了 

48 POKE & HA 8 0 0 •卜 Q , (5 

POKE ^ HF ： DC 0 i POKE & HE：DC l ? ： kHA 0 

60 POKE ikHEA6S , \ 


また、複数個のコマンドを文字列として設定しておき、 VARPTR で、そのアドレスを調 
ベキーポインタに POKE することにより、自動的に1度に実行させることもできます。 

100 A$= tt mountl:tnes:run ,, +CHR$<34) + "TEST ,, +CHR$(34)+CHR$( 13)+CHR$(8> 
110 POKE^HEDC0,PEEK(UARPTR(A$) + 1) : P0KE&HEDC1,PEEK(UARPTR<A$)+2) 

120 P0KE^HEA48,1 

(注意）境界を示す「00」の前に、「00」があると、読み込み終了となりますので、途中の 
余分な「00」はスペースコード & H 20(32) に書き換えて下さい。 


3-1-6 DATA 文の g 動作成 

メモリー上のある任意の番地の機械語の内容を BASIC プログラムの DATA 文に自動的に 
つくリ変えます。 


Iy L:=19WS 

20 FOR 1 = 100 TO 3.05: PRINT い 1 ; M data “； 

30 FOR J-8 TO15 : P=F : EF ； K( A> GHT-$ ( " 6S li i 

40 0 A " : PRINT N . 李 .；％” : NEXT Ji PRINT CHR^< 

50 KEY A , STRI NG$ < 7,30；* H* SIR I NG*$- < 6 t< 13) . 

60 PuKE&iHEDC@ , も . HC:C : P0KE 了も HEDC i HE:A 5 P0KHEA68 , 


:: F 


n[xT 


STRINGS (7,30) は力ーソル上移動 CHR $(30) を7回実行し STRING ? (6，13)で CHR $ 

(13) を6回実行させ、 BASIC プログラム上につくりかえます。 
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3-1-7 メモリー領域への直接書き込み 


KEY 6, u mon l, +CHR$< 13> + If D8020 ? 305+“ +CHR 漆く 13) : POKE^HEADB , 3z 
KEY? , 300 H +CHR 弟 （ 13) + n 08 tt +CHR^< 13) +CHR^< 2> 

POKE&HEDC0,^HCC:P0KE^HEDC1,^HEA 
P0KE&cHEA68,1 


モニターモードにして、8020番地から 805 F 番地までを表示し、 VRAM への書き込みした 
後、 BACIC へ戻ってくる例です。 


3-1-8 DATA 文からの書き込み 

KEY コマンドには変数を使うことが可能です。ビジネスユースの場合、所定の文字列を 
使うことが多いので、文字列群を DATA 文に格納しておき、場合に応じて、ファンクシヨ 
ンキーに定義してやることにより、キー入力が非常に簡単に行えます。 

5 CONSOLE 0,25 山 0 

10 DATA トウ字ヨウ，オオサカ , ナ ： T t , サ，ホ 0 口,フクオカ 
20 DATA ニユウ 3- ク，ラ : ？ "'5/ 力二 T , サンフランシ ;?=1 ,ワシントン 

30 PRINT " クニヲ I ランテ v _ クラ w サイ ニホ:/アメリカく a>/ オワリ（夫 〉 11 : INPUT A 弟 
40 IF A^= ° j 11 THEN RESTORE 10 s FOR 1=1 TO 5 : READ I) : NEXT I : GOTO 60 
59 IF A^= lf a 11 THEN RESTORE 20 : FOR 1=1 TO 5: READ B^( I) sNEXT I; GOTO 60 
55 IF THEN 100 

58 GOTO 38 

6B FOR 1=1 TO 7:KEY I ,8¢¢ I) : NEXT I 
70 INPUT 11 トシ メイ “ ； C^:PRINT "くく 11 漆 ；，* >> (l 

80 GOTO 30 

100 FOR 1=0 TO 15?:P0KE^HEA7C+I ? PEEKC^H3A81+I) : NEXT 
110 PRINT CHR^(12) : END 


60 行で DATA 文から文字列を読み込んだ配列変数をそれぞれのファンクシヨンキーに害 
り当てます。100行はファンクションキーの初期化です。 


3-1-9 キー選択 

ビジネスユースの場合、いくつかのメニューの中から、特定の仕事を選び、サブルーチ 
ンへ飛ぶことがよくあります。そのような場合のフアンクシヨンキーの使い方をあけてお 

きます。 


0 0 0 
12 3 


0 

4 
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5 CONSOLE 0,25,1,0:PRINT CHR^<12) 

10 DATA トウロ？ ， I H ノラン，フ。 | ノント -, テイ ■ 它イ，サクシ-‘ヨ 

20 FOR 1=1 TO 5: READ B 丰⑴ 

30 LOCATE 25,5+ I ¥2: PRINT B$ (I ： •; 11 .....F- H ; I 
40 KEY I ,E ： f *'； I) 

50 NEXT I 
60 A=255-INPC?> 

70 FOR N=1 TO 5 

80 IF A=2 A N THEN _ ELSE NEXT N 
98 G0T.0 60 

100 PRINT C ： HR^(12> :ON N GOSUB 206 ,388,400,500,^00 

110 FOR J=0 TO15? : P0KE ： ^HEA7C+ J , PEEK< &<H3A81 + J> : NEXT J : END 

2G0 PRINT B$-< 1) : RETURN 

390 PRINT Et 丰く 2> : RETURN 

400 PRINT B 李 (3::_ : RETURN 

56 0 PRINT B 车 ⑷: RETURN 

600 PRINT Ei$< 5) : RETURN 

60 行の INP ⑼ が フアン クショ ン キーの I /〇 ポートのデ—夕です。（詳しく は INP 文を参 
照下さい） 


3-2 . キー入カステートメント 


3-2-1 INPUT 

キー入力比較表(後出）の他に補足すると、 

♦人力した場所……？マークが残る。 

♦ BREAK した時 … Break in 行の表示があり、3行下にカーソルが移動する。 

• 入力誤りの時 ? Redo from start の表示があり、2行下に再入力待ちとなる。 

♦画面の下で入 

力した時" . 画面がスクロールされて最上位の行は消えてしまう。 

INPUT 文を表形式の中で使う場合、これらの対策を考えてないと表が崩れたり、次の入 
力の時' 非常にやり難く、最初から入力してやらねばならなくなります。対策として、 

LOCATE 文で入カデータの表示位置を決めておくか、 console 文で、処理してやります。 
次に例を示します。 


10 CONSOLE 20,5,0,0; PRINT CHRf く 12:* 

2@ FOR 1=0 TO ? 

30 LOCATE 0 • 卜 S,20+I r PRINT 1;: INPUT" ； A く I) 
40 LOCATE 0,0+1 : PRINT SPACE 弟く 20) 

50 LOCATE 0,0+1rPRINT Ii H ) M ;A(H 
60 NEXT I * * 

70 LOCATE 0 ? 24 ; PRINT if テイ t. イ ‘ 3 .■マ 7 ■力く y/n> 

80 X^==INKEYi; IF X^= M yTHEN S=S + 20 : GOTO 20 
90 IF Xf<>" n (l THEN S0 
180 END 
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rt$=INPUT$(10) 

FOR 1=0 TO 20sFOR J=1 TO10 
LOCATE 10+1,8+J:PRINT A* 
NEXT J，I 


上のプロ グラムを RUN させて、 
m 圆日 smisniEi と人力して]、さい。 

また、入力文字数を指定できるので、キーワードによる文字列の検索に使うと便利です。 
i 0 PRI NT U- 卜 ‘••ヲ ..1 •レテ‘:フデサ 1 ! _ 

28 A 李 = INPUTf c 1> : X=I NSTRC !! atede + qh i j H , : I F X=0 THEN 18 

3d PRINT >:”A. 丰 . 


3-2-3 LINEINPUT 

LINEINPUTA $ と INPUT A $ は殆んど同じです が、 大きな違いは、 LINEINPUT の場 
合、“，，，が 入力できること、人力文字無しで RET キーを押した場合、ヌルストリングが返って 
くること、それに、？マークの表示が無いことです。数多くのテ'—夕を入力し、後で修正 
する必要が発生し易い場合は、 INPUT 文を使った方が良いでしよう。長いメツセージ文で’ 
“ ”が人るものは、？マークの残らない、 LINEINPUT 文を使用した方が良いと思います。 


30行の S は再入力時、以前入力したデータに重ならないようにしたものです。前に人力 
したデータを修正する場合、配列の形にしておくと、修正しなくてもよいものは、 RET キ 
一を押すだけで済みますが、単純変数にしておくと、最後に入力したデータの内容が入力 
されます。 

また入力時の？マークを消すためには次の方式があります。 

10 PRINT CHR%< 12) 

26 FOR K=0 TO 5 

30 U 3 C ATE i ,1 + K SPRINT USING 11 ### i( ;K 
46 LOCATE 5,1 + K : INPUT h ( K .> 

50 LOCATE 5* 1 + KiPRINT USING 11 ;A(K) 

60 NEXT K 


3-2-2 INPUT $() 

() の中の数値によって人力文字数を指定することができます。このとき力ーソルは 
人力位置にあり、入力中は移動しませんし、エコー バック もありません。そのかわりカー 
ソル移動キーの人力が可能ですので、複雑な々ーソル移動が容易にできます。 


0 0 0 0 
12 3 4 


87 



3-2-4 INKEY $ 

このステートメントの特徴は、1文字入力でしかも、キー人力を待たないで、次の処理 
に進む ことです。ですから、 ループを作ってやって、 INKEY $ で 判断させ、文字に対応し 
た 行へ 飛ばせ る使い方が 一 般的 です。 


Y$=INKEY$ 

20 IF KHR$(.13) THEN 30 ELSE IF Y$="a 11 THEN 40 ELSE 10 
36 PRINT "<< END »" sEND 
48 PRINT H 0 K !! H 


キーが押されなければ、入力待ちで、キー入力によリ、その文字に対応した処理を行な 
います。また10行に戻すことにより、常にキー入カチェックを行ってます。 INKEY $ の場- 

合は コント 口ールキーも人力できます。 


3-2-5 IMP 

I / O ポート〇〜9をす旨定することによリ、キーボードからの、8ビットのデータを人力す 
ることができます。キーが押されると、そのキーに対応するビットが0になるので、ポー 
卜のデータで、どのキーとどのキーが押されたか判別することができます。次にポート0、 
ポート1のキーマトリックスと、それぞれのキーが押された時のデータの内容を示します。 

( 詳しくは、 I/O ボート表を参照下さい。） 


〔図表3-3〕 



7 F BF D F EF F 7 FB F D FE 

(127) (191) (223) (239) (247) ¢251) (253) (254) 


5のキーが押されたときの、ポート0のデータは2進表示で11011111、16進数表示で 

は DFH 、 10進数では223となります。同時に5と2のキーが押された時は11011011となり 
DBH (219) を与えます。このデータの内容を判別するプログラムにより、押されたキーに 
対応する処理をさせることができます。次にいくつかの例をあげてみましよう。 
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どのキーが押されたかを示す簡単なプログラムで、 GOTO 10 によリ常にキー人力を問い 
合せキー入力がなかったら、次の処理に移ってゆきます。ここで INP (0) = 253 の形を使 
う方法もあります。 

(II)10 WIDTH 80 ? 25 SPRINT 12) 

20 X =88 : y '=50 

36 A •二く NOT INP <0) AND 2 S 5) 

48 B =< NOT 1 NP (1 )AND 255) 

50 IF A AND 2 THEN )<=>::—i 

60 IF A AND S THEN X 二 X«M 

78 IF A AND 32 THEN Y = Y -1 

88 IF B AND 32 THEN 丫ゴ丫、 • i 

98 IF Y <0 OR Y >?5 THEN Y =( 丫 +?6 )MOD ?6 
100 IF X <8 OR X "> 159 THEN X =( X + 160) MOO 160 
H 0 IF POINTSX , Y ) THEN i 20 ELSE PSETO < , Y ) 

120 GOT0 30 ' 

このプログラムは、ドットパターンで自由に CRT 上に図形を描かせるプログラムです。 
ここでは NOT 、 AND などの論理演算子を使って判断させています。操作するキーはテン 
キーボードの上）、0(下）、[2(左）、 [ U ( 右）で、2 つの キー（たとえば1と5 ) を同時に押 
せば、ななめにも動きます。 


(III) テンキーを HEX KEY に 

10 ■ —- --- * - Set Memory - 

20 G ， CHR 樂 ¢223) +CHR 李く 191) +CHR^( 127) +CHR 东 （ 239) +CHR 隼く 247) +CHR*t( 25 1> 
30 H ， = M ABCDEF ,f 

40 INPUT l4 Address H +MA.$ : AD= し * ALGiA 奉） 

50 PRINT RIGHT ，く " 008 U +HEX ，（ AD> ,4 广”； 

60 FOR J=i TO16: FDR K= i TO 2 : 11 11 

70 A^INPUT^C I) ： IF AS= 11 ,l THEN 70 

80 I F A^>=" 0 11 AND A 奉く =”9 K THEN 辛： GOTO 100 

90 N=INSTR(G^ ? CHR'$( INP< 1))):IF N=6 THEN 70 ELSE I 0¢ < H% , N ^ 1) 

100 ;PRINT m ; : 60SUB 160 

110 NEXT K:PRINT 11 n ； 

120 しく 1 ■&H y +M1 多 ）: POKE AD ? F:AD=AD+i : M l%= nu 

138 NEXT J:PRINT 

140 U$=RI6HT^( ： HEX^<AD> ,1):IF U 车〇 "8” AND ^<> H 0 N THEN 60 
156 GOTO 50 

160 FOR 1=0 TO10@ : NEXT : BEEF 1:BEEP 0 : RETURN 


IN P(0 ) 

IF A=25_l THEM PRINT “ke 


FA ' 


ム上 


THEN PRIN 


IF A=21? THEN PR I NT 

GOTO U3 


if key … 5" 

:]•:: ev … 2 and Kev , 


0 0 0 0 0 
12 3 4 5 
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3-2-6 WAIT 


WAIT 文は 、 WAIT P ， I , J の書式で使われます。 

入カポート P から入力されるデータで指定されたビットの内容と、 J で与えられた数値 
で指定されるビットの内容の排他的論理和 （ XOR ) が I の数値で指定されるビットの内容と 
の AND で、1 ( 真）になることにより、次の行へ進みます。 

その間プログラムの実行は停止します。（入カポートを指定するときは 、I / 0ポートー覧 
表を参照して下さい） 

テンキーの「5」が押されるまで WAIT する場合の I ， J の数値の決め方の手順は、 

1.キーに対応した、ポート番号とデータ内容を決める 一一 >0ポート ， DF 
2•キーに対応したビットが1になるように I を決める一 > NOTDF (20) 

3. I で指定したビットが「1」となる J の値を決める 一 ^2 F 又は FF ， その他 


〇 7 De Ds D4 D3 〇 2 Di Do 


P は「0 !でデータの内容は第5ビット目が0となる数値 


入カ ポート P の データ 


_ ■ 


J 


I 


NOT DF (20) 


1 

1 01 

1111 

D 

F 

X 

砂 



0 

010 

0 0 0 0 



XOR 





AND 





J は第 5 ビット目が1になる数値 
園は1または0のいずれかです。 


1 / 


I はいわば受け皿で、第5ビット S だけしか、受け付けないときは、 
第5ビット目だけ1で、他は全て0とします。 


WAIT G ,& H 20^ h 2 F 又は WA L T 0,32,47 

(& HFF その他) （ 255その他） 

のようになります。 

ここで応用例を紹介しましょう。 

他の人に自分のプログラムを使われたくない場合、パスワードを設定し、 LIST して、 
解読しようとしても、その行だけ LIST されないプログラムです。。まず次のプログラムを 
キーインして下さい。 

10 PRINT CHRt<12) 

20 衫关关 H 以“关失关关关 

が关关关关关关关关关关关关关关关关 H 关关关关关关关关关关关关 PASS WORD ヲ KEY IN シテフデサイ关关关关关关关关关关 XX 关关关关关关 

关关关关关关关关关 

25 WAIT4 J&H8 ,^HFS:NAIT3 P ^H80 ytcH&F :WAIT2 5 &H40 ,^H4F : WAIT4 ,^H 10 ,icHlF 
30 PRINT CHR^C12) : LINEC0 f 0)-(159,89) ,PSET ， B 
40 LOCATE 37,11:PRINT “OK ! ! •， 

50 GOTO 40 

RUN させて下さい。パスワードは 「 soft 」 です。 

次にモニターモードで8020番地から 819 F 番地までの内容を表示し、リンクポインタを 
チェックして下さい。 （92 ページへ続く） 
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HHhb^hb 



入 

文 


数 




g 


g 


注） i ) 変数の型を宣言することによ 


入力数値の有効桁数が決ま 


3-2-7 キー入力比較表 


CONT による 

プログラム再開 


不可能 


BREAK 時 
の BEEP 音 


音が出る 


音が出る 


は出ない 


が出る 


CTRL 


中断しない 


STOPI キー 


入力文字なし 
で 「 ret 1 キー 


刖に入力した 
内容で再入力 


ヌルストリング 

(空 白） 


CHR $(13) 

が入力される 


CHR $(13) 

が入力される 


ret "! キー 


RET ] キー 


自動的 


自動的 


39桁 
以内 


254文 

字以内 


254文字以内 


指定した文字数 
(254 文字以内） 


1文字 


口ール 

の入力 


できない 


できなレ 


特殊文字 


カンマは変数 
の区切り 


数字のみ 


百 

V 


英、数、片仮名 

ファンクション 
グラフィック 


待たない 


人力時の 
力ーソル移動 


カーソル 表示 


入力指示の？ 
表 示 




input a$ 


LINE INPUT AS 


A$=INPUT$(X) 


A$=INKEY$ 


INPUT 




INPUTS 


INKEYS 


入力文字の種類 


















































3-2-8 キー入カステートメントの使い方 



メリット 

注 意 点 

使い方 

INPUT 

〇プロンプト文によリメッセー 

ジを使用でき、人力を促す 
”"マークが表示される。 

〇配列の形にしておくと、デー 
夕修正時、変更しない場合は 
|.RET| キーのみ押せばよい。 

〇実行後人力位置より3行下に 
力ーソルが移動するため最上 
位行がスクロールされる。 

〇人力誤りの時、画面が壊れる。 

〇単純変数の場合、データ人力 
せず、 RET キーのみ押すと 
最後に人力したデータがその 
まま人力される。 

〇25行モードの場合22行目以内 
でのキー入力をする Q 
〇スクロール ウィン ドウを設け 
る。 

〇 L 0 C A T E 文で力ーソル移 
動する。 

〇後で修正が必要なデ ー タの入 
力に使うと便利。 

LINE 

INPUT 

〇プロンプト文によリメッセ— 

ジが使用でき、入力を指示で 
きる. 

〇 ?マークが表示されないので 
文章を人力する場合の不_然 
さを感じさせない ^ 

〇，（コンマ）も含めて人力でき 
る。 

〇画面の80桁目の位蓝の文字の 

欠落に注意。 （ N-BASIC 
Verl . O の場合)。 

〇文章の入力に適している。 

INPUTS 

〇必要な文字数を指定でき、入 
力後自動的に次のステートメ 
ントに進む。 

〇コントロ—ルキーの人力が可 

能。 

〇人力したものが 〖 fnT 由 j に表示さ 
れない。 

〇キーヮードによる文字列の検 
索に便利。 

INKEYS 

〇1文字入力で自動的に次に進 
む 。 

〇コントロールコードが入力で 

きる。 

〇同 上 

! 

〇次の画而表示の待機に利甩。 

〇 Y ES / NO の判断に便利。 


ア 

ド 

レ 

ス 

リンクポインタ 

8 

0 

2 

1 

2 

E 

8 

0 

8 

0 

2 

E 

2 

A 

8 

1 

8 

1 

2 

A 

5 

A 

8 

1 

8 

1 

1 

5 

1 

A 

7 

A 

• 

8 

i 

1 


リンクポインタは左のようになっていますのて''25 
行目の WAIT 文を表示しないようにするため、 802 E 
番地の 「2 A 81」 を次の行である 「5 A 81」 に、 S コマンド 
で、直接書き直して下さい。 LIST してみると、25行 
はリストされませんが、 RUN させると、同じように 
実行されます。 


3-3 •コント □ー ル キー 

3-3-1 コントロール コード 

キャラク タコー ド表において、 〇 0H 〜 1FH の部分は、 コント ロールキャラクタにな っ 
ており、画面上やプリンタに出力すると、特別の動作をするものもあります。 

例えば、コード表において、 OCH (シンボル .Cl 、 1 〇 進数で 12) のコードは、キャラクタと 
して画面にプリントすると、画面を消去するという機能をもっています。 
print chr$ (&HC ) または、 print chr$(12) 

また、同じコードをプリンタに出力すると、用紙を次の頁の先頭まで送るという機能にな 
ります。 

lprint chr$ ( &HC ) または、 Iprint chr$ (12) 
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1 ist 

200 FORI= S 0TO^HFF 

210 POKE^HF380+(1^32) 关 120+ (IH0D32) 关 2, 
228 NEXT 
OK 

run 

Ok 


れらの コントロールコー ドに対応するキーには、次のものがあります 


0 


) 内は10進。 


〔図表3-3〕 

08(8) 

1 B (27) 

1 C (28) 




1文字削除 


実行の 1 時中断 


12 (18) 




1 文字あける 



1 E (30 V " 



カーソルを1つ右へ1 D (29) 
カーソルを上の行へ1 F (31) 


SHIFT 

+ 

4 — 


SHIFT 

+ 

1 


カーソルを1つ左へ 


力ーソル♦下の行へ 


プ 


ログラム上での使い方は PRINT CHR $( & H 0 C ) または PRINT CHR $(12) の書式で 


使います。 

また、すべての コントロール コードは、 

合わせで人力することができます。 



キーとアルファべット大文字キーの組 


例えば 



A で 01 H 、 



Gl で 07 H となりブザーが鳴るなどです。 



キーを押すことにより、人カキーの第6ビットを0にしていること 


を意味します 


画面上に print 文で出力したときとくに機能のないものについては、対応するシンボルが 

表示されます。 

print chr $ ( &H 1 B ) 

E c 

OK 

機能があるものについては口〇1^文で直接¥尺入]\1(ド300〜？£8 7 ) に書き込めばそのシン 
ボルを表示することができます。次のプログラムで試してみて下さい。 

SSEEEABBHLHCCSSDDuDDNSECtSE ― 个 1 

H X X T Q K l S T F h し R 0 i E 12 5 4 K N B N H B C ! i 

1 ist 

100 FOR 1 = 0 TO ： kHiF : POKE ： k - HF 300 + I >：2, I iWEXT 
Cfk 

もちろん、全部のキャラクタコードを VRAM に poke 文で書込んで表示することもできま 

す。 


? 


ソ〇 


> < J 

= ] > 
< ¥ 1 


Z - 

7 ン 
シ 9 

サ □ 


z N L3 レ 


9 


y 


ル 


S 

£ 


E 


2 


D 


E 


■ 琴 


S 

S 

C 


R 


8 X X r 7 U- 
7WW — 辛ラ # 
N3UV— 力 3 分 


5 UU 
4 


才 


H 


I B 


3 SS トウ t 月 


2 R 




i QqT7 dR 


0 p P 丄 


---X 


0 0+^7 





N n 
Mm 


3 ホ 



o 


f 




フ 


+ K k 
X J j 


K ヒ * 
I ^ 


L 


F 




B 


B 


A 


E 


E 


E 


s 


s 


-. I 


K 


Q 


T— 


VA 


X 


H 




H h 丨イ窣 


s / G 9 


IX 


^ F f 
N E 01 
^ D d 
un c c 


ft a 



ヲ 



■ 



\ 



テ IT 


• B b i r ツネ 


チ 


@ 、ー ラ = 
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76543210 

例. '' R " … 52 H 1011101110101110 

CTRL | +、' R "...12 H [0 〔0 旧 l ] 〇]〇 [l [〇 I …… 

次のプログラムを実行すると、キー入力したキャラクタコードを10進数と16進数に変換 
して表示しますので、 厂 ESC I キー、力ーソルキー、| |キ ー 、 | CTRL 1 キーと 

の組合わせなどを入力して確認してください。 

180 K 謇 =INPUT 冬く 1> 

105 POKEi < HF300+ 120XCSR し IN,ASC く K 多） 

110 し 0CATE4,CSRLIN:PRI 卜 mJSING H && jHEX^< ASC < K $)) , ASC < K $) 

120 GOTO100 
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〔図表 3 -〕 


コント ロー ル コー ド表 


16 進 

10 進 

シン 

ポル 

シンボルの 意味 

対応するキー 

機 能 

0 0 

0 


null 


CTRL +@ 

スぺース 

01 

I 

SH 

Start of Heading (へッ ディング開始） 

〃 + A 


0 2 

2 | 

sx 

Start of Text (テキスト開始) 

" +B 

力ーソルを 1 項目ごとに左へ移す。 

0 3 

3 

EX 1 

End of Text (テキスト終了） 

〃 +C 

STOP と同意（プログラムの実行を中止 
して、 N-BASIC コマンドモードに戻る; 

0 4 

4 

ET 

End of Transmission (伝送終了） 

” +D 


0 5 

5 

EQ 

Enquiry (問合わせ） 

^■9 

々ーソル位置から後ろをまっ消する 。 

0 6 

6 

AK 

Acknowledge ( 肯定 答） 

” + F 


0 7 

7 

BL 

Bell (ベル、ブザー） 

" +G 

内蔵のブザーを 0* 5 秒間鳴らす。 

0 8 

8 

BS 

Back Space ( 後退） 

〃 +H 

丨 DEL 力ーソルのすぐ左の 1 文字を削 
除する。 

0 9 

9 

HT 

Harizontal Tabulation ( 水平 タブ） 

” +1 

8 文字毎の水平タブ 

0 A 

10 

LF 

Line Feed ( 改行） 

パ + , 

r 

行を 2 つに分ける。 

力ーソルを次の行へ移す。 

0B 

11 

HM 

Home (VT ) Vertical Tabulation (垂直タブ） 

〃 + K 

力ーソルをホームポジシヨン画面左上 
に吳す。 

OC 

12 

CL 

Clear ( FF) Form Feed (改頁） 

” + 1 

一 

画面を消去して力ーソルをホームポジ 
シヨンに戻す。 

OD 

13 

CR ' 

Carriage Return( 復帰） 

〃 +M 

亡ーソルを次の行の先頭に移す。 

OE 

14 

SO 


" + N 

力ーソルを 1 項目ごと右へ移す 0 

OF 

15 

SI 


〃 +0 


10 

16 

DE 

Data Link Escape ( 伝送制御抵張） 

〃 + P 


11 

17 

D1 

Device Control1 (装置制御 1 ) 

" + Q 


12 


D2 

Device Control2 (装置制御 2 ) 

ひ + R 

:I N SI 力ーソルの位置から右側を 1 文 
字分右へずらす。 

13 

19 

D 3 

Device Control3 (装置制御 3 ) 

〃 + s 


14 

2 0 

D4 

Device Control4 (装置制御 4 ) 

" +T 


15 

21 

NK 

Negative Acknowledge ( 否定応答） 

" +U 


16 

2 2 

SN 

Synchronous idle (同期信号） 

〃 + V 


17 

2 3 

EB 

End of Transmission Block (伝送ブロ ッ ク終了） 

〃 +W 


18 

2 4 

CN 

Cancel ( 取消し） 

" +X 


19 

2 5 

EM 

End of Medium (媒体終端） 

” + Y 


1 A 

2 6 

SB 

Substitute (文字置換） 

" + Z 


IB 

2 7 

EC 

Escape (抗張） 

ESC 

; 実行の 1 時 中断 

1C 

28 


( FS ) File Separator (ファ イ ル 分離） 


4 — 

—> 

■ 各 

亡 ー ソルを 1 つ右へ移す。 

ID 

2 9 

一 

{ GS ) Gro 叩 Separator ( グループ分離） 



4 — 

力ーソルを 1 つ左へ移す g 

SHIFT! + 


IE 

30 

午 

( RS ) Record Separator (レ コー ド分離) 


■ 


: カーソルを上の行へ移す， 

IF 

31 

i 

{ US ) Unit Separator (ユニット分離） 


ISHIFTI + 


カーソルを下の行へ移す。 
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第 4 章カセ ツトファイル _ 

4 —1 ファイル名に変数ガ使える 

4一2 ~ r —タフォーマツト 
4-2-1 ブ□クラム•ファイル 

4-2~2 データ •ファイル 
4-2-3 モニタ W コマンドのデータ形式 

4 一 3 BASIC と機械語を 一 度に SAVE • LOAD 

4 — 4ファイル名なしの口 ー ド 

4-5 オー ト スター ト 




第 4 章カセットファイル 


4-1 .ファイル名に変数が使える 

csave，cload などのファイル名として変数が使えます。ためしに、 

» t E ST H 
csave at* 

と行なって 下さい。 エラーも出ずに正常に csave を 行ないます。 正しく save されたか見て 
みましょう。 

c l oad? ,, TEST H 

save ミスがなければ、 Found ゾ TEST" と表示されたあと、 OK が表示されます。この場合 
も cload ? a$ で構いません。 

また、変数だけでなく、もっと一般的に文字式も使えます。 

a^= M TE" 
c 1 oad + M ST" 

どうです。ちゃんとロー ドできたでしょう。 


4-2 •データフオーマツト 

さて、 プログラムやデータはカセツ ト へどのような型式で save される のでし上う か 


4-2-1 プログラム•ファイル 

まず、 csave された BASIC のプログラム•ファイルですが、次の図を見て下さい 


〔図！!^-1〕 ON 2. 5秒の WAIT [ r D3jX10bytes] File name(6bvtes) I: 0.1 秒の WAIT 

ヘッダー 

デ-夕 （ EB 54,55卜 (EFA0，A1 卜1 「〇〇」 X 9 bytes K3 秒の WAIT OFF 

プログラム本体 し敁後の3 bytes は00 
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モータが ON になったあと、 2. 5秒の WAIT があり、そのあと D 3 H を10個書き込みます。 
口ードするときは、この D 3 H 10 個を見て、プログラムファイルの頭だと判断するわけです。 

次に6バイトのファイルネームが続きます。ファイルネームが6バイトに満たないとき 
は、後に00をつめて6バイトとします。 

ここで一休み。 0.1 秒の WAIT があります。これは Found : …や Skip : を表示するためだ 
と思われます。 

次にやっとプログラム本体です。ここでは、 EB 54， 55番地に入っているプログラム開始 
番地から、 EFAO , A 1 に入っている変数開始番地の1つ前までを一気に、チェックサムな 
どまったく付けずに書き込みます。よっぽどカセットを信頼しているのでしょうか。 

プログラム本体を save したあとは、これでデータが終わりだ、という印を書き込みます。 
00が9個です。プログラム本体の最後の3バイトは00ですから、結局00が12個続いたこと 
になります。口ードするときは、00が10個続くと終わりだと判断します。 

すべてのデータを書き込んだ後は、約 1.3 秒空転させたあと、モータを OFF にします。 


4-2-2 データ•ファイル 

次にデ ー タ•ファイルの save のされ方です。デ ー タファイルは PRINT # - 1を使って作成 
します。ファイル名はありません0 

まず、プログラムファイルと同様に、 WAIT と、ヘッダーがありますが、ヘッダーの内 
容が 9 CH を 6 個となっています。 


〔図表4-2〕 


ON 


WAIT 

へツ々 _ 

デ _ 夕、データ … 

WAIT 


r 9 C 」 X 6 


OFF 


次にデータ（変数の内容）が書き込まれます。形式は CRT 上に出力する時とほぼ同じで 
すが、データの区切りの コンマは、 そのまま'〃として書き込まれます。データを書き 
終わると WAIT があって、モータが OFF になります。 PRINT #- 1の最後が V で終わ 
っていても何の意味もありません。 
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4-2-3 モニタ W コマンドのデータ形式 

モニタの W コマンドはチェックサムを付けています。下図を見て下さい 


〔図表4-3〕 



「3 Aj 

ァータ 数 

§m W m 

チェ ック サム 



NEG(Hi + Lo ) 


NEG (ア~夕数+データの合計の 

MOD 256) 


「3 Aj | 

00 

00 

!.3秒 W 


データ数はデータが十分にあるときは FF 


save スタートアドレスがあって次にチェツ クバ、 イトがあります。これはスタートアドレス 
の上位8 bit と下位8 bit を足したものを、8 bit の符号つき2進数と見なし、その符号を逆 
にしたもの（具体的には NOT をとって、1足したもの）です。ここまでがヘッドブロック 
です。次に複数のデータブロックが続きます。（データが少ないときは1ブロックのことも 
あります。）各ブロックは 3 AH , データ数 （1 バイト），データ，チェックサム （1 バイト）で 

構成されます。データ数は、普通は255個ですが、残りデータ数が255個ないときはそれ以 

下になります。チェツクサムはデータ数と各データを足し合わせ MOD 256 したものの符号 
を逆にしたものです。 

データを書き終わると、データエンドの印に 3 A .00.00 のパターンを書き込みます。つまり 
データ数= 0のブロックということで、モニタの L コマン ドではデータ数= 0を検出する 

と、終わりだと見なします。 


4-3. BASIC と機械語を一度に SAVE.LOAD 


4-2 -1で csave では2つのポインタ間のデータをすべて save し， doad は、00が10個現わ 

れるまでロードをすると述べました 0 これを利用して BASIC と機械語を1度に save - load 
する方法があります。 
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〔図表 4-4〕 



この間が 

save されます。 


まず BASIC プログラムを入力します。次に （ EFAO ， A 1 ) を増やして、 BASIC プログラム 
と変数領域の間に機械語を入れるのに十分な領域を作ります。そしてそこに機械語を書き 
込みます。ここで注意しなければならないことは、 BASIC のフわグラムをエディットしてプ 
ログラムの長さが変わってしまった場合には、機械語の位置も変わってしまうことです。 
機械語自体はこわれませんが、アドレスが変わってしまうのです。十分注意しましょう。 

もう一つ注意しなければならないことがあります。それは、機械語部分に続けて10個以 
上の00があってはならないことです。00が続けて10個以上あると口ードしたときに、そこ 
でロードが終わってしまいます。また、最後では00が10個以上続くように、最後の3バイ 
卜ぐらいは00にしておいた方がよいでしょう。 

さて、機械語を書き込んだら次は save です。 BASIC だけのときと同じように csave ” フ 
ァイル名"で save します。 

ロードも BASIC と同じように cload でできます。 
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4—4 .ファイル名なし口ード 

cload をするときに、ファイル名がわからなくて困ることがあります。そこでファイル名 
を入れなくともロードできるコマンドを作るプログラムを紹介しまし j ■う。 


10 • 

20 FILENAMELESS LOAD —— POLL 

30 .• 

40 FORI= 0 TO^H 22 : READD^ s P 0 KEScHFF 58 + I ,UAL く ": NEXT 
50 DEFUSR 4 HFF 58 :A=USR く 0 〉 ' 

60 DATA 2 i, 10 ， IF ， 11 ， 52 ， 01 , 44 ， 00 ,ED,B 8 , 21 ， C? ， 00 ， 22 , 5 D 
70 DATA F 2 , 3 E ， C 3 - 32 , 94 ， F 2 , 21 , 66 •IF ， 22 , 95 , F 2 , 21 , 50 , F 2,22 

88 DATA 15 ,FI,C 9 * 


この プログラムは機械語を使ってあります。機械語部分のディ スアセンブル 結果を後に 
載せておきますので、機械語のわかる方は読んで見て下さい。簡単なものです。 

このプログラムを run させると、すぐに 0 K が出てきます。これで、ファイル名なしの 
cload コマンド 「 POLL 」 が出来ました。 

カセットに何かプログラムをセットして 、 POLL _とやって下さい。 Found …… " 
と出て、プログラムを口ードしてきます。 

大変便利になりましたが、1つ問題があります。それはファイル名なし口ードを行なう 
ためには、このプログラムをファイル名付きで口ードしてこなければならないからです。 
しかし、1回、 run すれば、電源を切るか、リセットをかけるまでずっと使えるので少しは 
救われます。また、このとおり短いプログラムですから、手で打ち込んでもたいしたこと 
はありませんし、それより機械語部分だけをモニターモードで打ち込んで、 G させるのが 
よいでしょう。格納開始アドレス • 実行開始アドレスとも FF 50 番地です。 

ファイル名なし口ードプログラムの機械語部分は次のとおりです。 


FILENAMELESS LOAD II ,し 




_ 

ORG 

0FF56H 

FF58 

2110 IF 


し D 

HL ,IF 

FF53 

1 150F2 


LD 

D£,0F^5i；th 

FF 56 

0 14400 


LD 

B C , -4 4H 

FF5? 

EDB0 


L.DI P 


FF5B 

21C960 


! D 

HL ,0C?H 

FF5E 

225DF2 


L,D 

• ； nri:5DH> hHL 

FF61 

3EC3 


LD 

A, GC:3H 

FF63 

3294F2 


LD 


FF66 

2166! F 


LD 

H し. ！ F66H 

FF69 

2295F: 


LD 

<0 卜;:.? 5H::_ ,H し 

FF6C 

2 J^6F2 


し D 

H し， GF250H 

FF6F 

i * じ p 1 
こ .. i- * ■ ■1 


LD 

(0Fii5H> ? HL 

FF72 

c ■? 

_ 

RET 


FF 73 


i 

FND 
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4-5 .オートスタート 


ここでは、プログラムを口ードした後、自動的に run させる方法について述べてみましよ 

う。 

これにはファンクションキーの機能を使います。 PC - 8001はワークエリア内のフアンク 


ションキーフラグを立ててやると、ファンクションキーが押されたものと判断し、これま 
たワークエリア内のファンクションキーポインタが指すアドレスに入っている値をアスキ 
ー コードと見なしてそれを文字としてとり出し、あたかもその文字のキーが押されたかの 
ような働きをします。 

したがって、ワークエリア内のフラグ、ポインタ、そして実行すべき命令を正しくセッ 
卜するようなテープを作って、それをロードずればよいのです。ではいかにしてそのテ ー 
プを作るか？なぜそうなるかはさておき、その方法を下に示します。 

• 命令をセツトする 

EAC 0 番地から実行すべき命令を一文字ずつアスキーコードに直したものをモニタの S 
コマンドでセットします。命令の後には必ず00を入れます。 


例： 02,43,4 C ,4 F ，41,44,22,41，42,22,0 D ，52,55,4 E ，0 D ，00 


(T B)CLO AD '' AB 

• フラグをセツトするだめに 


忒⑽み 


key 1， WEA 68， EADF " + CHR $( 13 ) を実行します。 

•ポインタをセツトするだめに 


何もしません。 

參さて、上の3つを実行したらモニターモードに入り、カセットを録音状態にして 、 ITT 
キーを押します。しばらくして録音が終わります。次に BASIC に戻り、上の例では 「 AB 」 
というファイル名で、同じテープに続けて（先ほどの録音部分の後に、という意味です。 
間に無録音部分があってもかまいません。） csave します。これでできあがりです。 

PC をリセットし、ファンクシヨンキーにさわらないようにしながらモニタに入り、： L コ 
マンドを実行します。しばらくすると、リレーがカチッとなり、 CLOAD v AB " と表示さ 
れてプログラムを口ードしに行きます。口ードが終わると自動的に: run がかかり、プロダラ 
ムが走り始めます。 

さて、どうしてこうなるのか考えてみましょう。まず PC をリセットした時には、実はフ 
ァン クシヨンキーポインタは EAC 0 番地を指しています。ここでテープから 口ー ドします。 
命令が EAC 0 番地からにロー ドされ、フラグもセットされます。したがって後はすべてう 
まく行く、というわけです。これでポインタをセットするために何もしなかったわけがわ 
かったでしょう。 

次になぜファンクシヨンキーに 「 WEA 68, …」というものをセットしたのでしょう。直接 
に EA 68 番地〜 EADF 番地を W してはいけないのでしょうか。……これはフラグ、つまり 
EA 68番地を0以外の値にセットして W するためです。フラグは、ファンクシヨンキーにセ 
ットされた命令が実行されている間は立ったままでいます。したがって上のようにして W 
するとフラグが立った状態でテープに save できます。 
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第 5 章プリンタ出力_ 

5—1 スク 1 」ーンコピーのいろいろな方法 

5-1-1 RQM 内の)レーチンを利用 

5-1-2 ターミナルモードを利用 

5-1-3 BASIC によるサフルーチン 

5—2 ブ U ンタ機能一覧表 

5-2-1 PC - 8023 

5-2-2 MP -82 

5-2-3 MP -80 

5-3 LPRINT サフルーチン 




第 5 章プリンタ出力 


5-1. スクリーン コピーのいろいろな方法 


画面のコピーをプリンタで出力したいと思うことがよくありますが、市販のスクリーン 
コピー ROM を買おうとすると、数千円から数万円もします。 

しかし、キャラクタ（グラフィックキャラクタも含む）のみの画面ならば次に示すいく 
つかの方法で簡単にプリンタへ出力できます。 


5-M ROM 内のルーチンを利用 


NEC PC - 80 0 i BASIC し ， er 1,1 
Copyright 1979 < C ) b y 1 Microsof t 


124 A ……画面プリントルーチン 



m 〇 n 

S G 1 2 4 h 


モニタモードで 124 A 番地にジャンプするだけで、その時に画面に表示されているものが 


すべてプリントアウトされます。 

この場合、実行後、 Syntax error を表示して処理を終わります。これは、 124 A から始 
まるルーチンがサブルーチン であり RET で 戻ろう とするにもかかわらず、 mon の G (ジャ 
ンプ）命令で実行したため、戻り先がないためです。 

機械語のサブルーチンを実行するには、 USR 関数があり、 DEF USR 文で 124 A 番地を定 
義して USR 関数を実行すればエラーにならずに、画面プリントができます。 
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(例 ） console 5，12のとき 




プリント範囲 
(17 行） 


4 


スクロール 範囲 

16 

17 


アスキー コー ド （20 H 〜 FFH ) を画面に表示するプログラムですが、表示後、それをプリ 

ントするかどうか聞いてきますので、'、を入力すれば USR 文を実行するので画面をプリ 
ントするというものです。 

実行して、を人力すると、次のようにプリントされます。 

0 12345 6 7 S l 9ABCDEF 


DTH 40,25: DEFUSR@=^H 1 24A : C=^H20 
PRINT CHR 车 （ 12);TAB<4> ; 

FOR 1=0 TO1 ラ ： PRINT HEX^< I) ; 11 J, ; :NEXT : PRINT s PRINT 
PRINT HEX^(C) ; ,f "; 

FOR 1=0 TO15 

PRINT CHRKC+I ); …； 

NEXT:PRINT 

C=C+16:IF C<255 THEN 130 

PRINT t PRINT JI Do you print (y/n) ? KY 本 =INPUTS (1) 

IF KY^= 11 y 11 THEN U=USR0(1) 


NEC PC-860 1 BASIC ： Ver 1,1 
Copyr i gh t 1 ? ァ ■? ( C) bv，Mi c「. oso + t 


Ok 

mon 

关 G124A 
byntax 

Ok 


err o 


U = USR 0(1) 


ダ 


d&iusrd-i<h 124 a 
Ok 

u=usr@( i) 


これを使ったプログラム例を次に示します。 





7 0 


0 



〆 ？ •>.7 〇 V 


4 


>.N< 
= M 1 


£ 


m t ホ 
J z A— 


o 


u*- 




7 


! 5 ,K 


k 


¥; 


__ 


J 2 - 


z 


JTr サヒ □* 
L h n -c レ 


I y i V, 

f. , 8 H X h Y: 

/ 7 Gwq-ul 


ヴ 


イク杗 ：> 
? 午 fX ラ 



# 


f •: 


FM • 十 > ■ 丨ヲカ 


3 



E 


e u 


. 4 D 丁 d t 

ttscscs 


= 2 B R b 
!lAQa 


cr 


_ 


オナ lkil 



I 


f 


0 


J ウテ干* tt 月 




ッ X # 年 


a 


0 @ p 、 p | 丄 


■ チ /3 


円 


p 

u 

0 

y 


0 0 0 0 0 0 0 0 0 0 0 0 0 0 
2 3 4 5 6 7 8 9 <T B c D E ii. 


0 

D 


0 0 00000000 
0 i 2 3 4 5 Nw 78 CK 

—1 1* 1* IX 4i 1 f* I It 
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ところが' おわかりのように Do you . ?のメッセージまでプリントされてしまいます。 

これは、 console 文をプリント直前で実行することで、解決できます。 

すなわち、プリント範囲は、第 0 行から console 文で指定されるスクロール範囲の最下行 
までとなっています。 

ただし、 console0,25 ■などと全部を指定しても、ファンクションキーはプリントアウトさ 
れません。 

先に示したプログラムの 100 行、 190 行に下記のように console 文を追加すれば、〇〜 16 行 
がプリント範囲となり、アスキーコード表の部分のみがプリントされます。 

100 CONSOLE 0 ,^25: WIDTH 40,25: DEFUSR0=^H 1 24A : C=^H20 
190 IF KY 扣 ， , y" THEN CONSO し E _0 6 : l_l=USR0 く 1 ) 


190 行の console 文の代りに、 poke 文により、スクロ ールのパラメ ータを直接ワークエリ 
アの EA 5 D および EA 5 E 番地に書込んでもかまいません。 


190 IF KY^= 11 y M THEN POKE ^HEASD ,15:POKE 8>iHEA5E,1:U=USR0< 1) 

EA 5 D . スクロールの 長さ一 1 

EASE . スクロールの開始行 +1 


もう 一つ 注意しなければならないことに、 スペースの 処理があります。 

画面をクリアキーまたは、 PRINTCHR $(12) でクリアしたとき、 VRAM 内のデータ 


は、すべて M 0" となっています。 

表示位置を TAB 関数や USING 文などで指定すると、キャラクタ間は、 20 H のスペース 
で満たされますが、 locate 文で指定すると、キャラクタ間は、 00 H のままです。したがっ 
て、その状態で 124 A からの画面プリントルーチンを実行すると、 00 H をプリンタは無視す 
るので、キャラクタ間のスペースが無視され、詰まってしまいます。 


TAB 指定の場合 


nl PRINT^CHrS'! ; " A AAAA 11 ;TAE：< 10> ; " BBBBB" ;TAB<28> ; •• CCCCC 
120 CONSGLE0,1 :U=US0< 1) : CONSOLES,25 

AAAAA BBBBB CCCCC 
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locate 文による場合 


DEFUSR8={kH124A 

LOCATE @,0: PRINT n AAAAA n 

LOCATE 10,0 : PRINT "BBE:BE: U 

LOCATE 26,0: PRINT "CCCCC" 

CONSOLE0,1 : U=USR0<i> : CONSOLE0,25 


AAAAABBBBBCCCCC 

これを防ぐためには、 color 文の第2パラメータを 20 H にして、一旦画面クリアしておけ 
ば、 V - RAM は、すべて 20 H に変わるので、 locate 文による表示でもキャラクタ間は、20 
H であり、画面プリントしてもスペースは無視されません。 

col op ,^ h 28 または mon を実行後画面クリアする。 

Ok 关 SEA 5 A 

EA 5 A 00—20 00— 

¥ 

¥ 

0 k 

プログラム内に10 COLOR ,« kH 20 : PRINT CHR •丰.く 12) 

または、 10 POKE : kHEASA , ；^ H 28: PR I NT CHR 车 く12::* としておいてもよい 

いずれかを実行しておけば、 locate 文によるプログラムを実行しても、 スペースは 無視 
されません。 

5-1-2 ターミナルモードを利用 

POKE 文または、 MON モードで、 EA 58 番地に 01 H を書込む。 

P 〇 k e ^ hea 58, 1または men 

Ok 关 SEA 58 

EA 58 00-0180- 

Ok 

上記いずれかを実行しておけば、以後 、 f .9 キ ー（ SHIFT キ ー+ f .4 キ ー） を押せば、その 
時、画面表示されているものがプリントアウトされます。 

console 文によるプリント範囲の設定、 color 文第2パラメータによるスペース処理につ 
いては、 5-1-1 の ROM 内サブルーチンを利用する場合と全く同様です。 

このモードは、 f *8 キ ー（ PRINT キー）を押すことにより解除されます。したがって、こ 
のモード設定中は、 f .8 キーによる PRINT の画面表示はできませんのでご注意ください。 

この方法による画面プリントは、例えば、プログラム list の表示を [ Jig □により中.断途 
中であっても有効です。（次べージヒ図） 


0 0 0 0 0 
0 12 3 4 
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! C 130] [ 120] 34 
^ [ 1303 C 120] 37 
/ C 130] C 120] 40 
关 [ 130] [ 120] 43 
- [ 130 H 120] 46 
8 [ 130] C 120] 4? 
3 [ 130] [ 1293 52 
6 C 130] C 120] 55 
?[ 1303 C 120] 5S 
く [13011 ： 120] 61 
? [ 130] C 120] 64 
B [ 130] C 1203 67 
E [ 1301 C 120] 7@ 
H [ 136 H 1203 73 
K [ 130] C 120] 76 
N 


tron 

Ok 

run 

C 1863 [ 118 U 120] 32 
"[1301C 1203 35 
X C 1301 C 1201 38 
< C 130] t 1203 41 
+ C 1303 C 1201 44 
.C13©3[ 120] 47 
1[ 130 3 E 120] 56 
4 [ 130] C 1203 53 
7 l 13©] C 120] 56 
- [ 130] [ 1201 5? 

=[ 130 3 C 120] 62 
@ C 130] C 120] 65 
C t130][ 1203 68 
F [ 130] [ 1203 71 
I [ 1301 C 120] 74 
し！： 130] [ 120 3 77 


この ターミナル モ ー ドの状態において 、 f • 10キ' — ^よ 、 プリンタのフインフイ' — ド、そし 
て f .6 キーは、 コント ロー ル 文字の画面表示をするかしないかの スイ ッチの役目をもってお 
り、当然のことながら、このモードにおいて f -6 〜 f _10 を通常の ファンクション キーとして 
使うことはできません。 


もちろん、通常状態でのプログラム実行途中であってもかまいません。 


ぐ Uharac ter Print 

FOR 1=32 TO 255 

PRINT I ， C:HP. 李.⑴；，，，， ； 
NEXT I . 


また、例えば、 TRON モードにおいて、あるプログラムを実打中に、適当なところで、 
HescI キーにより中断し、 f -9 を押して、プリントアウトし、その後実行を再開することも 
できます。 


3 6 9-25814702 ^」 
3 3 3 4 445 5 5 6 6 6 


3 6 ? C •ム UJ CO 
66 ./* 7? フ， 


TJ TJ |— I I— J TJ 1 ■dpT ■■■■■ ■«■ ■<_ i 

0 3 0 0 0 0 0 0 0 6 0 0 0 0 0 0 
■"•JOJ 2 2 2 2 222 2 2 2 2 CM 2 2 
li 11111111111111 

- - r - ■ 卜 ■ t L..J UJ I—I J L—I I • 

]]]J]JmJ]J]J]J]]J 
0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 0 
3 3 3 3 33333333333 3 




2 5 8 J > <T D G JM 


61 6161^* 1,01 61 
3 4 4 5 5 6 s 7 7 8 8 9- 


2 7 <AF K p u z 


5 0 5 0 5 050 5 0 5 0 
3 4 4 5 5 s 6 7 7, 3 8 9 


6 s.@ E J o 


4 9 4 9 4 CK 4 9 4 9 4 9J1 
3 3 4 4 5 5 6 6 7 7 8 8 C 


I ^ 


0 5 


? DINS X 


3 8 3 8 3 CO 3 8 3 s 3 8 3 
3 3 4 4 5 5 6 6 7 7 8 8 9 


4 9 


c HMRwy 


n 2 
u 3 


7 2 7 2 7 2 7 2 7 2 7 2 
3 4 4 5 5 6 6? 7 889 


冬 > • 3 8 H B G し Q u c 


0 0 0 0 
0 1 丄2 3 
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5-1-3 BASIC によるサブルーチン 

前述の2つの方法は、いずれも画面の第0行から任意の行までをプリントするものです 
が、 F 300 番地からの VRAM の内容を PEEK 関数が読み出し、プリントアウトする方法も 
あります。その一例を次に示します。 


10000 / 衫关关关 Screen Copy Subroutine 关关 

10010 / 

108 20 * S : Star t Line < 8 —24) E : End Line (R-24> 

10030 x .. i'ty 

10040 I=^HF300+120^8 

100 50 FOR J =0 TO 7? STEP 8 糾 PEEK(4cHEB4A) : P=PEEK( I + J) 

10060 IF P>31 AND P く 248 THEN LPRINT CHRS(P)；ELSE LPRINT " "• 

q® 070 NEXT ^sLPRINT : 1=1+120 : IF I>icHF30a+120^E THEN RETURN ELSE 1^050 

s=0 se=II:gosub 10040 


サブルーチン形式をとっており、 S にプリント開始行、 E に最終行を人れて、 10040 番地に 

GOSUB で行けば、 S と E で指定した範囲が、スクロールなどに関係なくプリントアウトさ 
れるものです。 

もし、プリンタが、グラフィックキャラクタの出ないものであれば、 10060 行の P の条 
件を変更してください。 

横の桁数については、 EB 4 A 番地にその内容が入っているので、 80 との整数除算で、 40, 
36 桁の場合には、 Step 2 となって VRAM を 1 つおきに、また 80,72 桁の場合には、 Stepl 
となって連続して読み出すようになっています。 

これらの画面プリント方法は、画面への表示のための PRINT 文に対応したプリンタへの 
出力のための LPRINT 文を各々つくる必要がなく、必要に応じ、 USR 文を実行したり、 
GOSUB によりサブルーチンを CALL するだけで良いので、プログラム作成の省力化、省メ 
モリ化が図れます。ドットグラフィクスを含んだ画面をコピーする方法は、 PC -8023 の使 
用説明書にプログラム例がありますので、参照してください。 
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5-2-1 ブ 1 J ンタ機能一覧表 

( PC -8023) 


( 印字文字の切換え^) 

抗大 



ESC : CHR$(27) 

CR : CHR$ (13 ) 印字 
LF ： CHR$(10) 印字•改行 
FF : CHR$(12) ページ 送り 




ESC + CHR$(n)IS n 客 6 


( 改行幅の切換え ) 



<キャラクタコードの切換え ) 



( ビツ r イメ ージ) 

ビット数 n 

厂 （4 桁 10 進） II ビット 

ESC + " S" +、' n 3 n 2 n! iV . - - - 

く例 〉 n =12 3のとき I : 
LPRINTCHR $(27)" S 0123 // I : 


n /14 r ESC + v T" + ''ni no" 

_/ 2桁10進数 

( n = 1が半ドット分に相吾） 

n 行改行 j CHR$(31)+CHR$(16+n) 
_/ 1 ^ n ^15 


改行方向切換) 



( 強調印字) 



ESC + '、 ！ 


ESC 
+ CHR$(34) 



(アンダーライン印字 ) 



ESC+1 


ESC+"Y 
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印字方向 ) 


ロジカルシーク インクリメンタル 



送ったデータのキャンセル キャリッジ 1 文字バック 

CHR$(24) CHR$(8) 


<セレクト / デイセレクト） 



OUT&H10.&H11 


左記に続けて 

OUT &H 40,0 
OUT &H40J 



レフトマ 


ー ジンノ 


([水平タブ) 



3 桁の 10 進数（例 040) 



100 OUT &H 10,9 

110 OUT &H 40,0 

120 OUT 紐 40，1 

130 A-INP(&H40)AND1 

140 1FA = 0 THEN RETURN ELSE 130 


< 垂直タブ i 


チャネル 



VFU 設定 CHR$(29) 


A 

(a 

& 


1 

2 



60 



67 


CHR$(28) 


CH6 CH5 CH4 CHS CH2 CHI 

76543210 
0 0 011101 GS 3 -ド 

X 10 0 0 0 0 1 、 

TOF 

xi xxxxxx ノ 

X1000000 

xi xxxxxx 



0 0 0 

XXX 


01 

X X 



BOTTOM 


(X1000001) 

1 X X X X X X ノ 

0 0 011110 


TOF 

RS コード 
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TOF 間 

1 - --- - - 1 - 

DCI ，3 処理 

; 72行 

, 

無効 i 

66行 

有効 


5-2-2 プ 1 J ンタ機 能一覧表 

( MP -82 TYPE II ) 








































































ヒット n メー ジノ 


ビットイメージは単方向印字 


57 fJ ^ 行1 ESC + '' K " + CHR$ ( ni ) + CHR$ (n 2 ) 


' ESC+''I/ / + CHR$(n I )+CHR$(n 2 ) 


ビ 


■¥ 


5 

4 

3 

2 

1 

0 


16 進化 

:ビット数下位 2 桁、 
、 n 2 :ビット数上位2桁ノ 


( 紙検出 


コン 


卜 □ ール J 



ESC +"9 


ESC +"8 



<セレクト 


デイセレクト 




ESC : CHR$(27) 

CR : CHR$(13) 印字 
LF : CHR$(10) 印字•改行 
FF : CHR$(12) ページ送り 
VT : CHR$(11)LF に同じ 


(] 改行幅の切換え) 



ESC ダ 0 


ESC +"2 



n /72 


l‘n€85 

I 

ESC+ 、 'A" + CHR$(n) 



ページ長設定） 


1 ‘ n ミ 127 


行数で設佘 j ESC+^C + CHRSCn) 

( n 行） 


1 ^ m ^22 


長さで設定 1 ESC+''C" + CHR$(0)+CHR$( m ) 

(m : inch) 



スキップ/《ーフオレーシ3ン 



1 ^ n $127 




CHR$(7) 
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DIP スイッチ機能^) 



SWM 

SW 卜 2 

SW1-3 SW 卜 4 

SW1-5 

SW1-6 

SW1-7 

sw 卜 8 


改行幅 f 

ページ 長 

1 

行の桁数 

1 行印字幅 

紙検出 

国別仕様 
切 換 

リモート 

セレクト 

ON 

1/8* 


SW 卜 3 

SWI-4 

桁 数 


無効 

輪出向 

内部固定 
す る 

■B 

■B 

80/96 

— 


132/159 

OFF 






6.7^ 

有効 

日本向 

内部固定 

しない 

〇 - 


132/159 



SW2-1 

SW2-2 

SW2-3 

SW2-4 


国別キャラクタ 
ゼネレ_夕切換 

自動改行 

1 インチ自動 
スキップハーフ 
オレージヨン 


1 

2 

仕向地 

内部固定 
す る 

無効 

ON 

OFF 

OFF 

イギリス 


OFF 

ON 

ドィッ 






OFF 

ON 

OFF 

フランス 

内部固定 

有効 

ON 

ON 

アメリカ 

しない 


5-2-3 .ブ U ンタ機能一覧表 

(MP-80 TYPE II ) 


< 印字文字の切換え ) 



\ CHR $(14) Y 

48 r ; 96 


CHR $(20) 

または改行 


改行幅の切換え ) 



^ ページ長設定 J 


、 ESC+'、(T + CHR$U ) 

行数で設定 ( 1^ n ^127) 


/ \ ESC +" C // + CHR $(0) 

長さで設定 + CHR 3 ( m ) 

乂_ J ( 1 ^ m ^22 m : インチ） 
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棵準密度 \ 

480 レット/行 ESC +" K" + CHR$ (ri!) + CHR$ (n 2 ) 


リセツ 


ESC+ 、 'N" + CHR$(n) 
--^ 

ページ長設定 


セット 


n 行スキ、 
( 1 ^ n s 


声声度 \ 

960 ドット./行 ESC + " C" + CHR$ () + CHR$ (n 2 ) 


n ビ 


16 進下位 2 桁 
n mod256 


セレクト/デイセレクト 




16 進土位 2 桁 
n ¥256 


セレクト 


CHR$(19) 

-^ 

e - 

CHR$(17) 


ディ 

セレクト 


紙検出コン 


ル 


有効 


ESC +"8 


ESC +"9 


その他* BL (ベル） .. . 

• BS ( バック _ スペース ）“ 

• LF ( ラインフィード ）— 
籲 VT (ヴァーチカルタブ) 


CHR $( 7 ) :ブザーを1秒間鳴らす。 

CHR $( 8 ) :バッファに入力された直前のデータキャ 

CHR $(10): 印字、改行 
CHR $(11): LF に同じ 


無効 


• FF (フォーム•フイード） CHR $( 12 ) :ページ送 1 )( 電源 ON 時の位置まで紙送り 

• CR (キヤリッジ•りターン）… CHR $(13): 印字 


DIS スイッチ機能 


SW 


改行幅 


ぺージ長 




Q Hj^B ； 




ON 


ON 


内部固定する 


常時 OFF 


内部固定 

しない 


自動改行 


ンチ自動 


* 


内部固定す 


注 1) ◎ 、 IO は、標準状態を示します。 
注 2) ESC とは、 CHR$(27) を意味します。 


常時 OFF 


常诗 OFF 


内部固定 

しない 






















































5-3. LPRINT サブルーチン 


PO 8023 をはじめ、最近のプリンタは、前述の機能一覧表を見てもわかるように、イン 
テリジェントプリンタとして数多くの機能を持って いて、 それを覚えて使いこなすことは 
並たい ていの ことではありません。 

そこで、その機能をサブルーチンとしておき、 gosub 文だけでそのほとんどの機能を活 
用するという方法もあります。 

機能一覧表代りにして、機能を覚えるのにも役立つと思います。 

PC -8023 を例にしたプログラム例を次に示します。 



10000 
10010 
10020 
10030 
10040 
10050 
10060 
10070 
10080 
10090 
10100 
UH 10 
10120 
10130 
10140 
10150 
10160 
10170 
10130 
10 190 
10200 


Lprint Subroutine Set 
LPRINTCHR$(14);:RETURN 
LPR1NTCHR$(15); : RETURN 
し PRINTCHR$( S) ;; RETURN 
LPRINTCHR$C18); : RETURN 
LPRINTCHR$<2?) u b\ u ;:RETURN 
LPRINTCHR$(27) lt E" ; : RETURN 
LPRINTCHR$(27) ll Q (, ; : RETURN 
LPRINTCHR$(27) ; : RETURN 
LPRIHTCHR$(27)" 1u ; : RETURN 

LPRINTCHR$(27>CHR$(34); : RETURN 
LPRINTCHR$(27) 11 X M ; : RETURN 
LPRIHTCHRf (27) 11 Y 11 ; : RETURN 
LPRIHTCHR$(27) ,T A n ; : RETURN 
LPRIHTCHR$(27) lt B n ; : RETURN 
LPRINTCHR$(27) M T M N$; : RETURN 
LPRINTCHR$(31)CHR$(16+M); : RETURN 


■En1arge 
y Normal 


'Back space ( 

Incremental 

mode) 

■Data cancel( 

Logical seek ； 

mode> 

"Pica 

80/1ine 


-El i te 

96/1 me 


'Condensed 

136/1ine 


y Proper tional 

168/1ine 



■’ Enhanced 
4 Enhanced Cancel 
Under 11ne 
"Under line Cancel 
/ Line teed 

'1/S 11 Line teed 
■'n/ 144 M Line feed nf"2 d i q i t s 
■ N line: teed v 1 : -(N<=15^ 


LPRINTCHRt(27) ,f $ n ; 
LPRINTCHR ■ 去，， : 2 ァ） _V_ ; 
LPRINTCHR^(27) l} i n ; 
LPRINTCHR$(27* ， l r. lt : 


RETURN 

RETURN 

RETURN 

RFTURN 


ANK 

rMH 

ForiAiH.rd 
Rp 1 ■二 e 

1 ^ I • ■ 电 


Line ieed 
li rte feed 


10210 

LPfUNTCMR$?27) 

: RETURN 

/ T * ' 

■ l r- a *"* v \ 

轟 11 u J 1 1 ? レ i ■■ ■ ， t 

10220 

LPRINTCHR$(2?：« “； T ; 

: RLTURN 

" Loqi cal : eet 


10230 

10240 

10250 

10266 

10270 

10230 

10290 

10300 

10310 

10320 

10330 

10340 

10359 

10360 
10370 
10330 
10390 


IPRINTCHR^ 


: HR$(N) :: RETURN 


LPRINTCHR$(27) 11 L 11 ; : RETURN 

LPRINTCHR$(27.) !, S H N$RETURN 

Horizontal tab 
LPRINTCHRf (2?) "( 嘗 11 ■ ; 


m 


m 〇 n , 

ム ^ 

tab 


: RETURN 
: RETURN 
: RETURN 


*W)+ ll C" + STRI 卜 ! G$(13, w 0") 

m u m n m u c\m(3ki) ； : return^T ab 


； HR$<N) 


LPRINTCHR$(27) 

LPRIMTCHR$(2?) 

- Vertical 
N$=STRING$(116, 

LPRIHTCHR$(2?) n 
LPRINTCHR$(31>C 
LPRINTCHR$(11>; 

/ し ptchr 

RESTORE 10 390: FORI=0TO6:READAf 
POKE^HFF60+I A^AL^^h H +A$) : NEXT 
DEFUSR^MFF*0 : RETURN 
DATA t5 1 ?e,cd f 2b,00,+l,c9 


’Dot 
Let t 


-pace { 
margin 
maqe 


卜 CI'I.C 

r v$_ •. 

い 


di 

di 


Q 1 

Q 1 


"Tab 

■Tib 


set 

r _ * - r ^- • m 

■ ご :: ■ 11 

c 1 ear 


ut 

n 丰 


ふ 


p 


=p i" 

H W ! ■ 


P 

_ 


_• 


RETURN" Select 
P!:TURN ■■ リ T code 

u-usr (c" 


n$^str l nq$ v 130 , "G 1 '、 


16400 " Lptchr 

10410 OUT^H10 J ：： %:OUT&<H40,0:1 

10420 IF INP(^H4@)AND1^0 THEN RETURN f ； L3e tC 129 
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次に説明するもの以外は、すべて GOSUB 文のみで使用できます。 

10150行… n /144 インチ改行 
n $ に2桁の10進数文字列を入れて GOSUB 
例 n $=''08" : GOSUB 10150 
10160行… N 行改行 (1 SNS 15) 

N に数値を入れて GOSUB 
10230 行… N ドットスぺース ( 1^ N ^ 6 ) 

N に数値を入れて GOSUB 
10240 行…レフトマージン 

n $ に3桁の10進数文字列を入れて GOSUB 
例 n $ 二''005〃 ： GOSUB 10240 
10250行…ビットイメージ印字 
n $ に4桁の10進数文字列を入れて GOSUB 
例 n $ =''0200" : GOSUB 10250 
10270行…水平タブセット 

にタブ位置桁数並びを入れて GOSUB 

例 n $='' 10,20,30,40,6 0" : GOSUB 10270 

10280行…水平タブリセット 

n $ にキャンセルしたいタブ位置桁数並びを入れて GOSUB 

例 n $ =、'20,40" : GOSUB 10280 
1032( H 了…垂直タブセット 

n $ に2〜66行を設定する文字列を入れて GOSUB しますが、10310行に GOSUB すれ 
ば、 n $ に60行を BOTTOM 行とする設定データを入れて実行しますので、 GOSUB の 
前に n $ に文字列を入れる必要はありません。 

10330行…爱直タブチャンネルセレクト 
N に使用するチャンネルを入れて GOSUB 

10360行…1文字プリンタ出力用の機械語サブルーチンを書込むサブルーチンで、プログ 
ラムの最初で実行し、使用法は、 USR 文の引数に出力するコードを整数で入れて実行 
します。 

サブルーチン書込み … GOSUB 10360 

プリンタ出力 . U = USR ( C %) C % :単精度変数 

10410行…1文字 プリンタ 出力 
C % に 出カ データを 人れ て GOSUB 
例 C %=9 : GOSUB 10410 

参考までに 、 MP — 80 のサブルーチン例も紹介いたします。 
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100 6 0 
iee 10 

10020 

10030 

10040 

10066 

10070 

10080 

10 0 90 

i0 100 

10 110 

10 120 


10 140 
10 150 
10 160 
10 170 
10 130 
10 190 
10200 
10210 
10 220 
10230 
10240 
10250 
10260 
10270 


Lpr i n t Subroutine Se t +or MP^8@ 

Er?1 ar qe 


し PRINT CHR$(14) ; iRETURN 
LPRI NT CHR 李 ( 20> ; :RETURN 
し PRINT CHRSt 15) ; : RETURN 
LPRINT CHR 生く IS) ; iRETURN 
LPRINT CHR 漆く 2 ?〉 ； 11 M 11 ; : RETURN 
LPRINT CHRU0) ; : RETURN 
LPRINT CHRS(2?^ : A ,r ;CHR$-C?) ; : RETURN 
し PRINT CHR 冬 （ 27) 5“A" ; CHR 李 （ 8) \ : RETURN 
LPRINT CHRf<27) ; N A H ;CHR 去 ， :N) ; :RETURN 
LPRINT CHRS(27> ; "C 11 ;CHRS<N> ; : RETURN 
LPRINT CHRt ベ 27) ;CHR^(CO ;CHRS<N); 

し PRINT CHR 樂 (1?) ;:RETURN 
LPRINT CHR 章 .:. 17) ; : RETURN 
し PRINT CHRS17:) ; : RETURN 


/ En 1-^rge c ^.ncel 

Condensed 132/1ine 
/ Londensed cancel 
’ Elite ( ?6 /line > 
y Elite cancel 
1/6 Line teed 
1/S Line feed 
■ N/?2 ( 10 N く = 85 ) 

/ Page 1 ength (1<=N<=127 > 
: RETURN " Page length 

(K-H<=22 N: Inch ) 
Diselect 
y Select 
y E: し （ Bel]) 


し PRINT 
し PRINT 
し PR I NT 
し PRINT 
し PR I NT 
LPRINT 
LPRINT 
LPRINT 
FOR 1 = 
LPRINT 
FOR 1 = 


CHR-t(8) ; : RETURN 
[: HR •■:: 10> ; : RETURN 
CHRI(!i); : RETURN 
C ： HRS( 12 〉 ； : RETURN 


Back Sp^ce ) 

し F く Line Feed > 

し _T( Ver t i ca 1 T み t> : - Lh ) 

FF く Form Feed : P =*.ge End ) 


CHFm 13) 
CHR 冬 ¢27) 
CHRS(2?> 
CHR^(2?) 


: RETURN 
"8” ： ：RETURN 
; : RETURN 
11 K ; CHRt < NN) 


CHRt(MM) 


TO NN:LPRINT CHR. く L じ ■ 
CHRt (27) j " L 11 : CHRt-CNN) : 


CR ■■ じ . 5 *.rr iag 它 Re turn : 
Paper Detec t OFF 
Paper Detect ON 
Bit Imaqe Print Normal 


； : NEXT:RETURN 
CHR^(Mh) : y E ： 


Imaqe Print Double 


TO NN:LPRINT CHR 生く LL> ; : NEXT : RETURN 


Print Out ) 

(4S6/Ii ne) 
(966/1ine) 
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第 6 章ディスクファイル 


6-1 ディスクファイルの構造 
6-2 ディスク使用時のユーザースエ 1 」ア 
6-3 ディスク用タンフ 1 J スト 
6—4 ディレクトリ 

6 - 5 ID 

6 — 6 FAT (File Allocation Table) 

6 — 7 ファイルの Location 

6-8 ファイルの転送 

6-9 データディスクをシステムディスクに 

6-10 Disk 巳 ASIC の回復法•切離し法 

6—11 ファイルの LOAD 法 

6-12 ディスク内テータの直接修正 

6—13 シ ー クレツトファイル 

6-14 FELD 文とファイルデザインシート 

6-15 ディスクの両面使用法 

6-16 ファイルネームの並べ替え 




第 6 章デイスクファイル 


6-1 .ディスクファイルの構造 


ディスクフ アイ ルの構造は、図のように なっています。 システムデイスクの場合、第〇卜 
ラックの第1セクタに 、 IPL (Initial Program Loader ) が人って おりディスクシステム起 
動時に第〇〜2トラックの内容 （12 K バイ ト） が、 そっく り C 000 〜 EFFF 番地に転送されま 
す。 したがって、 第1トラックの第4セクタの終わりの部分 かち、 第2トラックの第10セ 
クタまでの 、 Disk BASIC Program は、 D 3 E 6 〜 E 9 D 3 番地に転送され ます。 

また、第18トラックには、第1セクタから第12セクタにディレクトリ（ファイル名や格 
納場所および属性を記録する部分）、第13セクタの最初の1バイトに ID (ディスヶットの属 
性）、第14〜16セクタに FAT (File Allocation Table …ファイルの格納場所と順序を記録 
する部分）が各70バイトづ 、つ 同じものが入っています。 


〔図表6-1〕ディスクファイルめ構造 


FAT 

/14, 15 t I 6 セクタにそれぞれ、 セクタ 15 
k 同じ内容が人る。 


セクタ 16 セクタ！ 


> Initial Program Loader 

(ディ スク起動時 C 000 〜 
、 C 0 FF 番地に格納される, 


ID 

f 最初の1バイ 
\のみ使用 



セクタ 3 


ディスク起動時！ 

D 3 E 6 〜 E 9 D 3 番地 
に格槪される I 
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〔図表 6-2〕 ディスクファイルの容量 



フアイル管理の単位 入出力の単位 データの単位 


〔図表 6- 3 〕 Disk BASIC 入出力関係図 


ディスクファイル 本体メモリ 



FFFF 


注 1) この章では PC - 8031についてのみ記述されています。 

注 2) FILES , LFILES の 実行により、ディレクトリ の 内容が バッファ # 0を介して、画面 

やプリンタに出力される。 

注 3) SAVE , KILL , PRINT 林1, PUT などのコマンドで Disk ファイルの内容を書き変 

えた時、本体メモリ内の FAT のみが書き蛮えられ、ディスクファイル内の FAT は、 
元のままですので、ディスクファイルを取り出すときは、必らず REMOVE をして 
ディスクファイル内の FAT を更新することを忘れずに/ 
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6-2, ディスク使用時のユーザーズエリア 


Disk BASIC 起動時には 、 Disk 

BASIC インタプリタおよびそのシス 
テム作業領域が EA 〇〇番地から始ま 
る N - BASIC のワークエリアの手前 
に設定され、6〜 10 K バイトを占有 
するので、ユーザーズエリアは、32 
K システムの場合17〜 21 K バイトに 
狭まります。（右図） 

17〜 21 K バイトと幅があるのは、 
起動時に指定するファイル数により 
ファイルバッファ領域が増減するた 
めです。 

その詳細は次頁の図とアドレス表 
に示します。 



ディスクシステムを起動すると、最初に画面に次のように表示されます。 

Disk version [ 14- Nov - 1980 ] 

How many i i 1 es (0-15> ? 

この時入力する数値により、ファイルバッファの数が決まります。例えば3と入力すれ 
ば# 0から# 3まで、各256バイトのバッファが確保されます。 

数値を人力せずに I ret ! キーのみを押すと、自動的に# 5までバッファが確保されます。 
入力したファイルバッファ数は、 E 9 D 4 番地に入りますので確認してみてください。 
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フアイル数を入力すると続いて次の様に表示されます 


Disk versi on t 14~Nov - 1 980 3 
How many fi1es< 0-15)? 3 
NEC PC-800 1 BASIC ： Mer 1.0 
Copyright 1979 (C) by Microsoft 

Ok 


この本で記載する内容は 、 Disk version 〔14- Nov -1980〕 に関するもので、もし、起動 
時、次のように表示される旧バージョンの場合は、バッファ領域などの番地が若干異なる 
ので、ご注意ください。 

DISK VERSION 

How many fi1es(0-15) ? 


マイコンシヨップへ行けば、新バージヨンの システムを コピーしてもらえます。 



〔図表 6-5〕 バッファ領域図 
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フアイルバッファ (各256バイト） 
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〔図表 6 -6〕バッファエリアアドレスー覧表 
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CFAC 

酬 

CF 知 
O0A9 

CFA8 

D8A7 

_ 

_5 

CFA4 

D0A3 

■ 

ポインタ 


■ 


O0BC 

D8BA 

mi 

0886 

0084 

D882 

_ 

DdAE 

O0AC 

O0AA 

O0A3 

O0A6 

08A4 

I エリア 



D8C7 

01W 

D0C5 

01C4 

D0C3 

0IC2 

O0C1 

_ 

D0BF 

018E 

_ 

018C 

D0BB 
01 BA 

D0B9 

0188 

0087 

0186 

_ 

0184 

D8B3 

0182., 

D0B1 

D 贈 

D0AF 

01A£ 

D8A0 

0：AC 


ボインタ 


01C9 

01C7 

D1C5 

D1C3 

D1C1 

018F 

0180 

D1BB 

D1B9 

D1B7 

D1B5 

D1B3 

DIB! 

DiAF 

D1AD 

4 

本 1 

エリア 


0102 

0201 

0109 

D2CF 

DICE 
叩 CD 

D1CC 

D2CB 

01CA 

D2C9 

D1C8 

D2C7 

01C4 

D2C5 

0104 

D2C3 

0102 

D2C1 

D1C0 

D2BF 

01BE 

D2BD 

DISC 

D2BB 

_ 

D2B9 

0188 

0287 

_ 

D2B5 

井 0 

ポインタ 

02D4 

0202 

0200 

02CE 

D2CC 

02CA 

0X8 

0206 

02C4 

02C2 

D2C8 

028E 

028C 

028A 

0283 

0286 

エリア 

D2DD 

030C 

D20B 

030A 

0209 

D3D8 

0207 

0306 

D2D5 

0304 

0203 

030.2 

0201 

0308 

D2CF 
,03CE 

0200 

D3CC 

D2CB 

D3CA 

D2C9 

03C8 

0207 

03C6 

02C5 

03C4 

D2C3 

03C2 

D2CI 

0300 

D2BF 
038 E 

FAT ボインタ 

03E1 

D3DC 

030F 

D3DA 

0300 

0308 

D3DB 

0306 

D3D9 

D3M 

0307 

0302 

0305 

0300 

0303 

D3CE 
030 i 

D3CC 

D3CF 

03CA 

D3C0 

D3C8 

03CB 

D3CA 

03C9 

D3C4 

0^7 

D3C2 

D3C5 

D3C0 

03C3 

ファイルバッファ 

ポインタ 

D3E2 

D3E3 

D3E6 

03E3 

D3DE 

03E3 

D3DC 

D3E3 

D30A 

D3E3 

0308 

03E3 

D3D6 

D3E3 

D3D4 

03E3 

0302 

D3E3 

D3DB 

D3E3 

D3CE 

D3E3 

D3CC 

l03E3 

D3CA 

03E3 

D3C8 

03E3 

D3C6 

D3E3 

D3W 1 
03E3 

ディスク Basic 
先頭ァドレス 

D 3 E 6 
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〔図表 6- 7〕ファイルバッファメッセージエリア (9 バイト ) 


BUFFER AD 

(ポインタの指す、 

k アドレス , 

AD + 1 

AD + 2 

AD + 3 

AD + 4 

AD + 5 

AD + 6 

AD + 7 

AD + 8 


ファイルモード 

00 … CLOSE 04 ■，■ランダムアクセス 

01 --FOR INPUT 08 … FOR APPEND 

02 … FOR OUTPUT 

VARPTR (井 n ) 関数やファイルバッファポイン 
夕は、このアドレスを指している。 

!先頭クラスタ 

Open した File が格納されている先頭のクラスタ番 
号。 

ァクセス中の 
クラスタ数 

現在アクセス中のクラスタの番号。 

ァクセス中の 
セクタ数 


ドライブ番号 

ファイルがオープンされたドライブ番号一 1 

ノ<ツフアー 

カウント 

ファイルの何文字までデータがあるか。 

最後まであるとき 00 

カレントバッフ 
ァ_カウント 

バッファの何文字目まで齋き込まれているかを示 
す。 

ファイル属性 

00 … Close 18 …ライトプロテク t 

08 …属性なし 48 …リ ー ドアフタ ー ライト 

レコ_ド中の桁数 
(左から何桁目） 



〔図表 6-8] FAT メッセージエリア （5 バイト） 


FAT 


AD - 2 

AD — 1 

AD 

AD + 1 

AD + 2 


リム_ブフラッグ 

メモリー上の FAT の書きかえがあったかどうか 

を示す。 

属 性 

on …属性なし 10 …ライトプロテクト 

UU 稱 1 1 ょし 4〇 〜リー ドアフタ—ライト 

アクセス 

トラック 

最後にアクセスしたトラック Nq 

REMOVE すると " FF " になる。 



未使用 
クラスタ数! 

ディスケットの未使用のクラスタ数。 




6-3 .ディスク用ダンプリスト 


ディスクの中味を見ようとする場合、先ず DSKI $ コマンドでドライブ No , Track No , 
Sector No . を指定して実行すると、ディスクバッファ# 0に、指定したセクタの内容 (256 
バイト）が転送されてきます。そこで 1-12 のダンプリストプログラムを一部書き変えて、 
ディスク用ダンプリストプログラムとしたものを次に示します。 


100 WIDTH 80,25: CONSOLE 0,25,0: CLEAR 1000:DEFINT A-Z:AD=UARPTR(#0)+9 
110 INPUT 11 Drive No . 11 ；D 

120 iINPUT "Track 卜 lo, lt ;T$:IF T$= 11 THEN 140 ELSE T=UAL(T$) 

130 INPUT 11 Sec tor No. 11 ;S:PRINT 

140 DY$=DSKI$(C),T,S> : C$=RIGHT$( !! 8 11 +HEX^(T ： «2 + (S-1)^8) ,2) :I=AD 

150 PRINT USING "Drive # Track M Sector m Cluster 論 ,1 ; D,T,S,C$ 

!60 G=0;FOR J=0 TO 15 sK^PEEKC I + J) ;PRIHT RIGHT$( !, 0 ll +HEX$(K；) ,2) 11 11 ; 

170 6=G+KsNEXT SPRINT ll RIGHT$( ,! 00 H +HEX$(G) ,3) 11 l _ : 

130 FOR J=0 TO 15:K=PEEKU + J) 

190 IF K(32 OR K>247 THEN PRINT 11 • il ; ELSE PRINT CHR$(K); 

200 NEXT:PRINT:I=I+16:IF I，AD く 254 THEN 160 
210 PRINT ； S=S+1;IF S>16 THEN T=T+1:S=! 

220 GOTO 120 


この プログラムを 実行して、ドライブ No . 1または2 (拡張ドライブ使用の場合は、1 
〜4)、トラック No . 0〜34、セクタ No . 1〜16を入力すれば、指定のセクタが表示され 
ます。続くセクタを表示させたいときは、 Track . No ,? □で r ^ TI のみを押してくださ 


プリンタに出力する場合、160行以降の print 文 （ 7ヶ所）を、 lprint に変更するか、画面プ 
リントの項を参照してください。 

それでは、実際に実行して、 IPL の部分を見てみましょう。 
run 

Drive No , ?1 

Track No . ? 0 

Sec tor No . ? i 


Drive 1 Track 0 Sector 1 Cluster @0 


C3 

32 

C0 

F5 

3E 

01 

B7 

CO 

99 

00 

38 

ID 

21 

00 

0i 

19 

596 

テ2,ラ 

E5 

11 

00 

EA 

AF 

93 

5F 

3E 

00 

9A 

57 

1? 

El 

38 

07 

EB 

6D4 

k- 重 4.3 k->_ 叫 1：8-# 

0C 

7? 

FE 

11 

38 

DE 

FI 

B7 

C9 

FI 

37 

C9 

AF 

32 

C7 

ED 

9A1 


37 

C9 

11 

00 

Cl 

01 

02 

00 

AF 

32 

C5 

ED 

CD 

03 

C0 

38 

638 

7 ノ ••チ.， ，2 ナ OV ラ 8 

EB 

94 

0E 

01 

CD 

03 

C0 

33 

E3 

04 

0E 

01 

CD 

03 

C0 

33 

534 

■ - V 烟 "_U3 

DB 

21 

FE 

FF 

22 

52 

EB 

3E 

00 

32 

4D 

EB 

32 

98 

ED 

32 

7E? 

0! - n R*>*2M*2 r02 

46 

EB 

21 

59 

EF 

22 

56 

EF 

21 

C2 

EF 

22 

2A 

F0 

21 

93 

732 

F*!XW\”! へ IX 卜 

Cl 

CD 

ED 

52 

CD 

5C 

3E 

38 

F5 

D7 

B7 

3E 

05 

28 

0E 

CD 

835 

チ 10R へ？|〇8研> ■いへ 

D5 

4C 

20 

EA 

7A 

B7 

20 

E6 

7B 

FE 

10 

30 

El 

32 

D4 

E9 

8EB 

1L 

3C 

87 

2F 

3C 

5F 

16 

FF 

21 

E4 

D3 

19 

22 

D5 

E? 

E5 

3A 

792 


C7 

ED 

37 

2F 

3C 

5F 

\? 

22 

D7 

E? 

28 

EB 

El 

01 

0? 

01 

702 

5?0 l / し ”，+*!："• 

AF 

91 

4F 

F5 

3E 

80 

98 

47 

00 

3A 

D4 

E9 

3C 

00 

00 

30 

5D4 

ッ tO*I> •「G ■ : K _ _ ■ 

00 

00 

08 

80 


EB 

09 

EB 

73 

23 

72 

23 

3D 

20 

F6 

FI 

54E 


B7 

01 

B5 

FF 

3E 

08 

F5 

3A 

C7 

ED 

2A 

D7 

E9 

20 

E6 

IB 

898 

午•才 *>■»!: 細 ラ，1- 

IB 

FI 

D5 

2A 

D5 

E? 

5E 

23 

56 

21 

09 

00 

19 

22 

D9 

E9 

6C7 

- * * tt Af 

AF 

3D 

32 

F6 

£9 

CD 

56 

E2 

AF 

32 

F6 

E9 

CD 

7F 

D5 

El 

AC4 

• s =2 分 分 雩、 ユ右 
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この内容と、 C 000 番地からの内容を比べて見てください。同じものが入っていることが 
わかります。 

他の部分も調べてみてください。 

存在しないドライブ No •トラック No , セクタ No . を指定するとエラーになりますので、 
必要であれば防止するようにしてください。 
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Drive 

Track 

Sec tor 


6-4 .ディレクトリ 

ディレクトリは、何という名のファイルが、どのクラスタから、どういう属性で格納さ 
れているかを記録しておく部分で、住所録みたいな役目をします。 

ディレクトリは、18トラックの第1セクタから第12セクタにあります。 

デイスクダンプリストで見てみましょう。 

〔図表6-9〕 


ファイル名 （6 バイト） 拡 

(3 


先頭パイト 

0 〇… Kill されたファイルを示す。 
FF ， ••未使用を示す。 


Sector 

] 

l 

Cluster S 





28 

20 

80 

23 

FF 

FF 

FF 

FF 

FF 

7C? 

REFORM _# 

20 

20 

C0 

26 

FF 

FF 

FF 

FF 

FF 

7ED 

WUMP 他 

41 

53 

30 

20 

FF 

FF 

FF 

FF 

FF 

827 

SEARCHBAS_ 

28 

20 

80 

IF 

FF 

FF 

FF 

FF 

FF 

8iA 

DIRdmp _• 

20 

20 

?0 

29 

FF 

FF 

FF 

FF 

FF 

89D 

format 

20 

20 

90 

IE 

FF 

FF 

FF 

FF 

FF 

87F 

backup 丄， 

20 

20 

30 

2A 

FF 

FF 

FF 

FF 

FF 

964 

Fsheet _关 

20 

20 

80 

ID 

FF 

FF 

FF 

FF 

FF 

SIS 

MEMdmp —- 

20 

20 

80 

2B 

FF 

FF 

FF 

FF 

FF 

829 

OSKdmp „+ 

20 

28 

80 

1C ： 

FF 

FF 

FF 

FF 

FF 

S21 

Error —‘ 

56 

20 

80 

2C 

FF 

FF 

FF 

FF 

FF 

8DD 

し printMP 一， 

20 

20 

80 

19 

FF 

FF 

FF 

FF 

FF 

77D 

ASCI I j 

20 

20 

F8 

2D 

FF 

FF 

FF 

FF 

FF 

89A 

FATdsp X- 

20 

20 

80 

1A 

FF 

FF 

FF 

FF 

FF 

835 

STHcpy 」 

20 

20 

80 

2E 

FF 

FF 

FF 

FF 

FF 

820 

D-edit 一 • 

20 

20 

86 

IB 

FF 

FF 

FF 

FF 

FF 

85C 

Secret 






强子 

バイト） 




(未使用 （5 バイト） 


★そのファイルが格納されている先頭 
のクラスタ番号 （16 進数〇〜 45 H ) 


属性 


値 

意 味 

0 0 

アスキー形式 

10 

アスキー形式、審込み禁止 

4 0 

アスキー形式、 りー ドアフタライト 

8 0 

非アスキー形式 

9 0 

非アスキー形式、書込み禁止 

CO 

非アスキ—形式、 リー ドアフタライト 


注1 ) アスキー Save … Save ” ファイル名"， 


注 2) 属性 Set w ファイル名"/ P ' ■■書込み禁止 




002000 0 0 00 D 00000 
22422 2 222 2 42222 2 》 

8 J 

ID 0804040004000^44 
42 4 7 77N 7 7 2727 7 7 7 

k 

c 2 0 3 D 1 5 5 D D 2 E 9 3 0 9 5 
a 5546676667647 7 66 

TFD24DB544F 994 3 42 
445666 6 66 6 646 66? 

6 5 1 2 2 3 8 D B 2 2 3 4 D 5 3 
— 454s 766447 7 4 5466 

e 5 4 5 9 F i 3 5 3 0^ 0 3 i 4 D 5 
V 4 4 4 4 6 6 7 4 5 7 7 5 4 5 2 6 
*1 

r 2 Vo 3 4 6 2 6 D 4 5 c 1 6 3 4 3 
D 555466444444454 5 ) 


8 

1 It 4i 


? ? ? 


* 


_ 


0 


111 
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6-5. ID 

ID は、第 18 トラック、第13セクタの先頭の1バイトであり、残り255バイトは、未使用と 
なっています。 

ID は、ファイル全体の属性を示します。 

書込みは、 DSKO$ コマンドを用いますので MOUNT しておく必要はありません。 

その例を次に示します。 


〔図表6-10〕 


list 

106 FIELD #0 




1 AS ID% 


110 LSET ID^=CHR 李く &H10) 
120 DSKO$* 1,18,13 
Ok 


run 

Ok 



mount 1 
Ok 


save 

File 

Ok 


"Test, 

wr ite protec ted 


、 f ドライブ番号 

pr int attr 聲 < i> 

P 

Ok 

例のように、書込み禁止コード 、 '10H" を書き込むと、新しいプログラムを SAVE しよ 
うとしてもできません。 

注）書き込み後、再度 MOUNT しないと、本体内の FAT の属性は蛮わらないので注意 

してください。 
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6-6 • FAT 


Sector 14 Ct uster 

FF FF FF FF FF FF FF 

FF FF FF FF C5 C2 C3 

28 Cl C4 C6 C3 C8 C2 

FF FF FF FF FF FF FF 

00 00 00 00 60 00 60 

00 m m 


.. ■…ナ _ y テナト 

t u )! 11 ■パ（チトこテ？ ■ 


ファイルは、クラスタ （8 セクタ）単位で管理されており、ディスケットあたり70 (0〜 
69) あるクラスタの使用状況が記録されている部分を FAT(File Allocation Table ) と呼 
びます。 

記録場所は、第18トラックの第14〜16セクタで、各々70バイトつ/つ同じものが各セクタ 
に書込まれています。残り各186バイトは未使用です。 

6-3 のディスク用ダンプリストで見てみましょう。 

run 

Drive No, ? i 

Track No. ?18 

Sector No.<S,E) ? 14，14 


これでは少し分かりにくいので、トラック番号と、クラスタ番号と対応させて出力する 
プログラムと実行例を次に示します。 


100 DIM FTC69) : FIELD #0，70 AS FT$ 

110 INPUT 11 Drive No. 11 ;D;DY$=DSKI$CD, 18,14) 

120 K=0:FOR 1=0 TO 69:FT<I)=ASC(HID$(FT$,I+1, 1)) sIF FT<1)^255 THEN K=K+1 

130 NEXT SPRINT CHR$“2) DRIME fl ;D; - FREE^K; 11 SPRINT 

140 FOR 1=0 TO 4:PRINT H No.TR CL FAT n ; : NEXT 

156 FOR 1=8 TO 6?: LOCATE <16)^16,(I HOD 16)+3 

160 T=I¥2 

170 C$=RI6HT$< t, 0 ,, +HEX$<I) ,2) sFT$=RI6HT$( ,l 0 ,, +HEX$(FT( I)) s 2) 

180 PRINT USING _ 純咖 " ； I ， T,C$ ， FT$ 

190 NEXT:LOCATE0,20 


A 8 E 0 A 0 

E c A F F 0 
F E A F 5 0 

F 4 F F 0 0 

F c F F 0 0 

F 5 F F 0 0 
5 F c F F 8 @ 
2 


F F 7 F 0 0 
F F 2 F 0 6 

8 

1 E F E F F 0 
F F F F F 0 

k 

c E F E F F 0 
a F F F F F 0 

r 

T E F 2 F F 0 
F F 2 F F 0 

E F 1 F F 0 
1 F F 2 F F 0 

e E F 2 F F 0 

V F F c F F 0 

* 1A 

r E F 8 F F Q 
D F F c F Fa 
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关关关 H DRIVE 1 FREE 45 


No.TR 

Cl 

FAT 

No.TR 

C し 

FAT 

32 

16 

26 

C8 

43 

24 

30 

FF 

33 

16 

21 

C2n 

49 

24 

31 

FF 

34 

17 

22 


58 

25 

32 

FF 

35 

17 

23 

•22) 

51 

25 

33 

FF 

36 

18 

24 

FE 

52 

26 

34 

FF 

37 

18 

25 

FE 

53 

26 

35 

FF 

38 

19 

26 

27 

54 

27 

36 

FF 

39 

19 

27 

28 

55 

27 

37 

FF 

48 

2% 

28 

Cl 

56 

28 

33 

FF 

41 

20 

29 

C4 

57 

28 

39 

FF 

42 

21 

2A 

C6 

58 

29 

3A 

FF 

43 

21 

2B 

C3 

59 

29 

3B 

FF 

44 

22 

2C 

C8 

60 

30 

3C 

FF 

45 

22 

2D 

C2 

6\ 

38 

3D 

FF 

44 

23 

2E 

FF 

62 

31 

3E 

FF 

47 

23 

2F 

FF 

63 

31 

3F 

FF 


Ok 


FAT の各 1 バイトのデータは、各々次表に示すような意味をもっており、ファイルが、 
どこにどういう順序で入っているかを示しています。 


〔図表6-11〕 


FAT Data 


〇 〜4 5H 


C 1〜 C 8 


FE 


FF 


意 


味 


使用中のクラスタで、後続するクラスタを持つ、 

数値は、続いて使用されているクラスタ番号を示す。 

I _ _ ■' ■ ■■ LmiimM . ■ 

使周中のクラスタのうちの最後のクラスタを示す。 

下位4ビット （1 〜8 ) が、そのクラスタで使用しているセクタ数を示す。 

__ _ _ 面— --- ■" 

予約済のクラスタ……ファイルとして、使うことはできない。 

IPL，DISK BASIC PROGRAM の部分 （ 〇〜5クラスタ ） やディレクトリ 
ID - FAT の部分 (24 〜25クラスタ ） がこれに相当する。 


未使用のクラスタ 


〇 


先に調べた、ディレクトリのダンプリストより、例えば、、' REFORM " というプログラム 


の場合、格納先の先頭クラスタは、23 H である 


とがわかります 


〇 


FAT の 23 H の内容は、 22 H であり、 22 H クラスタに続いていることを意味します。更に 
22 H の内容は、21只で、続いて21 H の内容は、 C 2 H であり、 21 H クラスタを2セクタ使 
って終わっていることがわかります。 

すなわち、、、: REFORM " ファイルは、 23 H 、22 H 、 21 H の順に2クラスタと2セクタ使 
用していることがわかります。 


T F F F F F F 
A F F cl F F F 
F 

L OV 12 3 4 5 
C 4 4 4 4 4 4 

R 2 2 3 3 4 4 
T 3 3 3 3 3 3 


_ 


0 4 5 6 7 8? 
N666666 


TFFFFFFFFFFF 523 5 4 

afffffffffffccccc 

F 


0 


2 


L 012345 4789 AB c D c 

c 1 n 11-n 11 n 14 4— HI* n 14 I 

R 8899 0 0 112 233 4 4^ 
T 1 il111* 11-1* 1-1* f 

11 

0 678 9® 123456789 0 
N1111222222 22 2 2 0 


E F 


teeeeeeffffffffff 

F 

し 0123 4 5 67009 abcdef 

c 0000000009 00 0 0 0 0 


し 0123 4 5 67009 

c 0000000000 


R 0 0 


00 
N 


112233 445546 7 
2 3456789012 34 
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6-7 .ファイルの Location 


ディレクトリにファイル名と属性と、格納先の先頭クラスタ番号、また、 FAT にファイ 
ルの格納場所および順序が記憶されているので、両方を参照すれば、ファイルの属性•格 
納場所がわかります。 

次に、その応用プログラムと実行例を示します。 

100 CLEAR 1000:DIH FT<69),F$<15),E$(I5),AT$<15),CL$<15) 

110 FIELD #0,70 AS FT$ * 

120 FOR 1=0 TO15 

130 FIELD AS DY$,6 AS F$(I> ? 3 AS E$(I),1 AS AT$(I),1 AS CL$(I) : NEXT 

140 INPUT 11 Drive No. u ;D:DY$=DSKI$(D,18 ? 14) 

150 K=0:FOR 1=0 TO ^9:FT(I)-ASC<MID$(FT$,1+1 5 1))：IF FT<1)=255 THEN K=K+i 
160 NEXT:PRINT CHR$(12); ^ * 

170 PRINT DRlME^Dj^FREE^K; 11 : PRINT 

138 PRINT 11 FILE-NAME ATTR LOCATION 1 ， 

190 FOR S=1 TO 12:DY$=DSKI$<D, 18 ? S) :FOR TO15 

200 AT=ASC(AT$(F>) : AT$= lt N M : CL==ASC(CL$(F)) : LC$=RIGHT$( l, 0 t, + HEX$< CL) ,2) 

210 IF AT<^H80 THEN AC 和 "* 1 ELSE AC$" H . 11 

220 IF AT=^H10 OR AT=fcH90 THEN AT$= 11 P H 
238 IF AT=fc<H40 OR AT 畔 HC0 THEN ATf^^R 11 
240 IF LEFT$(F$(F),1)^CHR$( 0)THEN 290 

250 IF LEFT$(F$(F) ? 1)=CHR$(255)THEN END 

260 IF FT(CL) >^H45 THEN LC$=^LC$+ 11 ( 11 + CHR$(FTCCL) -^H90) + 11 ) M : GOTO 280 

270 LC$=LC$+ I( !1 + RIGHT$( ll 0 ll + HEX$(FT(CL)) ? 2) :CL=FT(CL) :60T0 260 
280 PRINT F$(F) ;AC$;E$(F) ; u 11 ;AT$; 11 n ;LCi 
298 NEXT F 5 S . . . . 


実行すると、ドライブ番号を聞いてきますので調べたい Disk の入っているドライブ番号 
を入力すると、次に示すように File Location が表示されます。 

DRI リ E 1 FREE 45 


FILE-NAME 

ATTR 

LOCATION 

REFORM. 


N 

23 22 

21(2) 

UDLIMP . 


R 

26 27 

28< 1) 

SEARCH, 

BAS 

N 

20 (8) 


Files . 


N 

1F(4) 


•format - 


P 

29(4) 


backup• 


P 

1E<5) 


F t able. 


N 

2A<6) 


ASCdmp. 


N 

1D<3> 


DSKdmp 


P 

2B<3) 


Err or . 


N 

1C<2) 


PTRsub 


N 

2C(8> 


リ -1ist 

da t 

R 

1B<5) 


FATdsp. 


N 

2D<2> 



最後の （） 内の数値は、そのクラスタの第何セクタまで使用しているかを示します。 
また、このプログラムは、ディスクが MOUNT されていなくても、実行できます。 
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6-8 .ファイルの転送 

ディ スク中のファイルを、他の ディ スクにコピーするとき、プログラムファイルであれ 

ば、 LOAD 命令で一旦本体内メモリに入れ、 SAVE 命令で目的のディスクへ書込めば 0 K 
です。 


1 oad l, ABC n 
OK 

save"2:ABC H 

Ok 


ところがデータファイルの場合、 LOAD 命令で、本体内メモリへ読込むことができませ 


1 oad n 2 s Zaiko . dat 11 

Direct statemen t in file 

Ok 

Commun i cat i ons Bu-f-f er Over-f 1ow 
Ok 

データファイルの場合、次の様にそれぞれのファイルを OPEN して、 R 二 1から LOF ま 
で’ GET と PUT をくりかえす必要があります。 

108 OPEN M Zaiko.dat ,, AS#l 

110 OPEN 2 s Z a i k 〇 . da t 11 A3#2 

128 FIELD#1,128 AS Ai 奉 , 128 AS 01¢ 

130 FIELDtt2,128 AS A2t, 128 AS 32¢ 

140 FOR R=1 TO し OF く DsGET #1,R 
142 し SET A2^=Ai 本：し SET B2$-=B 1¢ 

148 PUT #2,R:NEXT 
150 REMOVE : END 


ところが、この方法でプログラムファイルを転送すると、属性は、アスキー形式となって 
しまいますので、アスキー形式で SAVE されたプログラムであれば転送可能ですが、非ア 
スキー形式で SAVE されたファイルですと、データファイルを LOAD したときと同じエラ 
ーメッセージが表示され LOAD できません。即ちファイルの属性もコピーする必要がある 
わけです。 

次に属性も含めてファイルを転送するプログラムを示します。 

これですと、プログラムファイルであろうとデータファイルであろうと、関係なしに、ド 
ライブ1から2へ、または、ドライブ2から1へと、自由にファイルの転送ができます。 
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160 CLEAR 1000: NIDTHS0 f 25 : DIM Ff < 15) ,E*(15) 15) 

110 FOR 1=0 TO 15:FIELD#0 ， I 关 16 AS DY*,6 AS F$CI) f 3 AS E^<I).1 AS A^(I) : NEXT 
120 FIELD«1,128 AS Al^, 128 AS BIS 

130 FIELD#2 ? 128 AS A2 冬 , 128 AS 82¢ 

140 PR I NT Drive i H Free 11 ; DSKFC 1) : FILES : PRINT 

150 PRINT “衫笑 Drive 2 m Free";DSKF<2);FILES2:PRINT 

160 0¢=" INPUT Origin File Name ; 〔味： IFO，= f "_THEN 390 

170 INPUT "Destination File Name 11 ; DS: ER-0 

!80 FS=0f : GOSUB 250: IF ER=1 THEN 160 ELSE GOSUB 340: IF ER=1 THEN 140 

190 A$=A$( I) :0PEN RIGHT$(STRS<D),1> + M : ,l + F0^+ H . n +E0^ AS #1 

200 :GOSUB 250: IF ER=1 THEN 170 

210 OPEN RIGHTMSTR 漆 （ D> ,1)+" : ” + F0 冬 +£0¢ AS #2 

220 FOR 1=1 TO LOF(1):GET #1 ? I:LSET A2i=A 1¢: LSET B2S=Bi 本 ： PUT #2,IsWEXT 

230 GOSUB 340: LSET A 樂く I>=A 隼： DSKO$ D ， i8，S 

240 CLOSE:PRINT CHR^(12) ; : GOTO 146 

256 y File Name Re-form Sub 

260 C=INSTR(Ft ? 11 ： 11 ) ： IF C：=0 THEN D=1 : GOTO 280 

270 D=VAL ( し EFT 生 （ F$,C — 1>> : F$=MID 嚷 （ F$ ， C+1> 

280 I F IX 1OR D>2 THEN PRINT M Bad Drive Number ! __ : BEEP : ER=1 : RETURN 
290 P=INSTR<F^, 11 . M ) ; IF PO0 THEN 310 

300 F0$=LEFTt< FS + SPACEt(6) t 6) sE8^=MI< Ft + SPACED< ?) ,7,3〉: RETURN 

310 F0$=LEFTt(F$ ， P-1> :IFLEN<F8$) WTHENPRim^Bad File Name ! 11 s BEEP : ER= i : RETURN 

320 F0^LEFT$(F0^+SPACEt(6) ,6) : E0S-HI D*< F^+ SPACES< 3) ， P+ し 3) 

330 RETURN 

346 / File Search Sub 

350 FOR S=1 TO 12:DYS=DSKIt<D,18 y S) ;FOR 1=0 TO15 
360 IF F0S=F^(1)AND E0t=ES(I) THEN RETURN 
370 NEXT I,S 

380 PRINT "File not Exist ! BEEP : ER= i : RETURN 
390 PRINT : PR I NT ^remove 11 : REMOVE 


6-9. データデイスクをシステムデイスクに 


データディスクとして使用していたディスクを中のプログラムやデータを壊さずにシス 
テムディスク化したいとき、購入時システムディスク内に入って いる、' back up 〃プロダラ 
ムは使えません。システムディスク化する基本的手順としては、 

⑴データディスクの〇〜2トラックにデータが入っていないか確認する。 

( FAT の第〇〜5クラスタが FF かどうか） 

(2) システムディスクの〇〜2トラックの内容をデータディスクへ転送する。 

(3) FAT (18 トラック、14〜16セクタ）の〇〜5クラスタ部を'、 FE 〃にする。 

ですが、もし 、 T —タディスクの〇〜2トラック （Cluster 〇〜5 ) にデ ー ■夕がある場合に 
は、3 〜 34トラックの空いている部分にこのデ ー タを転送するとともに、それに対応する 
FAT も書き替える必要があります。 

次に、そのフロ'—チャ ー トとプログラム例を示します。 



〔図表 6- 12〕 


START 


100 


初期設定 


130- 


メッセージ 


170 


FAT 読取り 


FAT$ 


180 


190 


200 


FAT Check 

FAT Check 

、 FE か ？〆 

「 N0 


YES 


YES 


フリークラスタ 


6 未满 


230 


260 



6 以上 

声 


S 〜 69 クラスタのうち 
空きクラスタは i 

-1 



380 


2901 


^15^5クラスタ^^ 
蠔ところ tt ン 

— 【■ある —*« 

使っているクラスタ j 

内容 c $ 


なし 


メモリ不足表示 


END 


390 f FAT0 〜 5 クラスタ 
に FE 書込み 


f ある k クラスタ 


350! 


FAT k 番目 


4201 


2トラックコビ_ 


ディレクトリ S セクタ 
I 番目にある。 


END 


ディレクトリ 


360 ! 


FATj 番目卜 FF 


FAT i 藜目 — C$ 


j クラスタの内容を 
i クラスタへ転送 







プログラムを口ー ド 後、 ドライブ1 にシステムディスク、 ドライブ2 にデータディスク 

を入れて実行します。すべて DSKI $， DSKO $ で読み書きするので MOUNT する必要はあ 

りません。 


180 

110 

128 

130 

140 

150 

168 

170 

180 

198 

200 

210 

220 


REMOME:CLEAR 1800 :DIM S$(15),C$(15) 

FIELDS,70AS F$ 

FOR 1=0 TO15:FIELDH0, 16AS DY$,IAS Sf(I) f 9AS DY$,IAS C$(15) : NEXT 
PRINT "Drive I ... System Disk 11 

PRINT w Drive 2 … Data Disk Ready (y/n) ? B ; 

KY$=INPUT$(1):IF K 丫樂 0 M y M THEN 150 

COLOR 4:PR!NT : PRINT a Now Working ... M : COLOR 0 

DY$=DSKI$(2,I8,14) : FAT$=F$ 

IF LEFT$(FAT$,6)=STRING$( 6 f CHR$( 255) ) THEN 390 

IF LEFT $(FAT$, 6) -SIRING$ < 6 ,CHR$(254)) THEN 420 

N=0:FOR 1=8 TO 69:IF MIDf<FAT$,I+ i,1)^CHR$(255) THEN N=N+1 
NEXT 

IF N<6 THEN 330 


230 FOR 1=6 TO 69:IF HID$(FAT$,1+1,1)=CHR$(255) THEN 250 
240 NEXT I : GOTO 390 


250 FOR J=0 TO 5:C$=MID$(FAT$ f J+l,1)：IF C$<CHR$(255) THEN 270 
260 NEXT J:G0T0 390 

270 FOR K=0 TO 69:IF MID$(FAT$,K+1 f 1)-CHR$(J) THEN 330 
280 NEXT K ' 

290 FOR S=1 TO 12:DY$=DSKI^(2,18,S> 

300 FOR L=8 TO15: IF S$(L) =CHR$( J) THEN 320 
310 NEXT し， S:G0T0 370 

320 LSET C$CL)=CHR$a) : DSK0$ 2,13,3:6010 340 
338 MID$(FAT$,K+1,1)=CHR$(I) 

340 HID$(FAT$,J+1,i)=CHR$(255) : HID$(FAT$, 1+i,1)=C$ 

350 FOR S=1 TO 8:DYf=DSKI$(2,J^2,S+(JH0D2)^8) 

360 DSK0$ 2,I^2,3+(IM0D2)^3:NEXT"S : GOTO 230 
370 PRINT 11 FAT construction is bad. u : BEEP:END 
380 PRINT "Disk full...Free Cl us ter 11 ;H: BEEP: END 
390 HID$(FAT$ ,1,6) =STRING$(6,CHR$(254)) 

400 DY$=D3KI$(2,18,14) : LSET F$=FAT$ 

410 FOR S=H TO 16:DSK0$ 2,1&,S:NEXT 

ビ 120 FOR T=0 TO 2:F0R S=1 TO16:DY$=DSKI$( i f T,S) : DSK0$ 2,T,S:NEXT S,T 
430 PR I NT: PR I NT 11 Complete 11 … •‘ へ 


6-10. Disk 巳 ASIC の回復法•切離し法 


Disk BASIC 使用中に、何らかの理由で 

1. デ ィス ク ユニット の電源を切った。 

2. ホットリセットをかけた。 

(ストップキーを押しながらリセットボタンを押した。） 

このようなとき、例えば MOUNT などを実行しても、正常な動作をしません。 

本体メモリ中のプログラムを消さずに、回復させるには、 Basic インタプリタ中の 00 D 2 番 
地 （ Disk Initialize ) を CALL すれば OK です。 

BASIC で CALL するには、 USR 文を定義して実行できますが、面倒ならば、モニタモード 
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で上記番地へジャンプしても良いでしょう。この場合は 、 u Syntax Error 〃 を表示して BASIC 

コマンドレべルに戻ります。 

de+usr=S ： ihd2 : u=usr < 0) 

® OK 

m o n 

②关 GD 2 

Synt ax error 

ok 


なお、ディスクが MOUNT されていた状態であったとしても、そのまま残っていますから 
FILES , REMOVE 等も問題なく使えます。もちろん、本体メモリ上のプログラムが消え 
たりするようなことはありません。 

もし、ただ単にホットリセットしただけならば、デイスク用 I / O ポートがリセットされ 
ただけなので、 OUT 命令でこのポート （コント ロールポートアドレス FFH ) に IC ( " PD 

8255) の初期設定コードである91 H を出力してやれば、再び Disk BASIC が、使用可能とな 
ります。 


out -f ， & ch? 1 

Ok • 


また、ディスクユニットが接続してあるシステムで 、 Disk BASIC を使用中、普通の N - 
BASIC だけを使いたいときはどうすれば良いでしようか？ 

ディスクュニットの電源を切ってリセットするのも1つの方法ですが、もつと簡単な方 


法があります。それは、 HESCl キーを押しながら RESET ボタンを押す ESC - RESET で 
す。システムによって違いますが、数秒から十数秒後に、ディスクユニットなしで、リセ 
ットした状態になります。 


6-11 .ファイルの LOAD 方法 

通常のファイルの load は、 

load ' v ファイル名"(後の〔"〕は、省略しても良い） 

で行ないますが、カタカナのファイル名などキーインするのが面倒な場合があります。 
このような場合、次の方法で LOAD または RUN すると便利です。 

1. 白黒80文字モード以外(72,40,36文字モードまたはカラー80文字モード）で files を 
実行します （ ドライブ2の場合は files 2 )。 
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■Files 

REFORM. 

3 

VDUMP . 

3 

SEARCH-BAS 

1 

Files . 

1 

•format. 

1 

backup - 

i 

Fsheet. 

1 

ASCdmp■ 

1 

DSKdmp 

1 

Error . 

1 

PTRsub 

1 

U - 1ist dat 

1 

FATdsp. 

Dk 

1 




2. LOAD または、 RUN したいファイル名のあるところまでカーソルを上げ、ファイル 
名の前に load、' または、 run、' をキーインし、 fRETl キーを押します （ ドライブ 2 
の場合は、 loacT 2: または run v 2:)。 

行の始めにあるときは、 I INS 1キーで上記の コマン ドをキーインするスペースをあ 
け、 それ以外は、スペースキーでカーソルを移動させ キー インします 。 load や run 
の位置は、ファイル名の前であればどこでもかまいませんが、 ['、] や [ 、 '2:] は、ファイ 
ル名の直前でなければなりません。 



■files- 

REFORM. 3 

SEARCH.BAS 1 
•format . 1 

Fsheet . 1 

load ••DSKdmp 
PTRsub 1 

FATdsp. 1 

Ok 


MDUMP . 
Files . 
backup - 
ASCdmp. 




terror 


M-list dat 1 



② -files 

REFORM. 3 
SEARCH.BAS 1 
format. 1 
Fsheet . 1 

1oad _ 

PTRsub 1 
FATdsp. i 
Ok 


MDUMP . 3 
Files . 1 
backup. 1 
ASCdmp. 1 
Error . 1 


U — list dat 1 


③ 


i i 1 es 2 

REFORM. 3 

SEARCH.BAS 1 
■format. i 

Fsheet. 1 

1oad, 」 
PTRsub 1 

FATdsp, 1 

Ok 


MDUMP . 

Fi1es . 
backup. 
ASCdmp. 

2 : Err or , 
l J~] i st dat 


3 




1 





6-12. ディスク内データの直接修正 

ディスク内の任意の箇所を直接書き換えたい場合がよくあります。例えば、 

1 . 新しいプログラムやデータを SAVE や PUT したが、最後に REMOVE しなかったと 

き。 . FAT が古いままになっている。 

2. MOUNT している状態で、別のディスクを入れて、 REMOVE してしまった。 

…… FAT が前に入れておいたディスクのものに書き換えられてしまっている。少々 
めんどうだがディレクトリは、元のままで、先頭クラスタはわかるので、ディスク 
ダンプリストで各クラスタを調べて、 FAT を組立てて書換える。 

3. ID をセットしたいがめんどう。 

18トラック第13セクタの1バイト目を書き換えれば良い。 

4. IPL やシステムプログラムを一部変更したい。 

5. 必要なプログラムを KILL してしまった。…ディレクトリと FAT を書き換える。 


00 42 43 44 20 20 . 

——元の File 名が'' ABCD " であったら A 
のアスキーコー ド41に書き換える。 


3 E . ..BCD . 

先頭クラスタ番号が3 E であるの 
で FAT (14 〜16セクタ）の 3 E 番 
目の部分および、それに続いて使 
用しているクラスタがあれば対応 
する FAT の FF を0〜45 H 又は、 
C 1 〜 C 8 に書き換える。 


6 . 


データファイルの一部を修正したいがデータ変更用のプログラムを作 
または、変更プログラムを実行するのがめんどう。 


〆 %- 





などなど、列挙すればきりがありません 


このようなとき次に示すプログラムを実行すれば任意のトラック1セクタのデータが、 
画面上で次々に修正できます。 

ディスクメモリの修正プログラム 


100 WIDTH 80,25: CONSOLE 0,25,0:CLEAR 1000:DEFINT A-Z:AD=MARPTRCtt0)+9 
110 INPUT 11 Drive No. 11 ；D 

128 INPUT 11 Track No. n ;T 

138 INPUT 11 Sec tor No, 11 ;S:PRINT CHR$(12); 

140 DY$=DSKI$(D ， T ， S) : C$=RI6HT$( l, 8 ll + HEX$<T^2+(S-1> ¥3) f 2) :I=AD 

150 PRINT USING 11 Dr ive # Track ## Sector ## Cluster ;D,T,S ? C$:PRINT 

160 6=0:FOR J=0 TO 15sK"PEEKU+J> : PRINT R!GHT$( tt 0 M + HEX$(K) ,2) 11 ム ； 

170 G=G+K;NEXT:PRINT 11 M RIGHT$( M 00 M +HEX$(G) ,3) 11 11 ; • 

180 FOR J=0 TO 15;K=PEEK<I + J) 

190 IF K く 32 OR K>247 THEN PRINT 11 い ，； ELSE PRINT CHR$(K); 

200 NEXT:PRINT:I=I+16;IF I-AD<254 THEN 160 
210 / mmi Edit WiiM 
220 N:0:H=0 

230 X-<mOD 16) ^3 iY-m 1^+2 

240 LOCATE X f Y:K$=INPUT$(1):IF M=1 THEN 360 
250 IF K*=CHR$<13) THEN 390 

260 IF K$=CHR$(23) THEN N=N+ 1:IF N>255 THEN N=0 
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270 IF K$=CHR$<29) THEN H=N- 1:IF N<0 THEN N=255 

280 IF K$=CHR$(30> THEN N=N-16: IF N<0 THEN N=N+256 

290 IF K$=CHR$(31) THEN N=N+16: IF N>255 THEN N=N-256 

380 IF K$>="8 t, AND K 和ぐ 1 9 M THEN 336 

310 IF K$>= ,l a , ' AND K$=K B *f u THEN K$=CHR$<ASC(K$)-32) : GOTO 338 
320 ON M+l GOTO 230,240 

330 LOCATE X,Y:PRINT K$sIF M=0 THEN D$=K$:X=X+1:M=1-.GOTO 240 
340 M=0 :D$=D$+K-t :K=UAL< M ^h M +D$) :POKE AD 刪 ， K 
350 (3=0:FOR 1=0 TO 15sG=G+PEEK<AD+(N¥ U) X16+1) : NEXT 
360 LOCATE 4?,Y:PRINT RIGHT$("08 tt +HEX$(G),3) 

370 LOCATE 54+NM0D16,Y:IF K<32 OR K>247 THEN PRINT "•" ELSE PRINT CHR$(K) 
380 N=N+1:60T0 238 

390 DSKO$ D ， T ， S:LOCATE 0,19:GOTO 120 


使い方 

1. run すると、ドライブ No . トラック No •セクタ No . を聞いてきますので、各々 10 進 
法で入力します。 

2. 指定したセクタの全256バイトが 、 Check sum , アスキーコードと共に画面に表示さ 
れ、第1バイト（左上）の部分でカーソルが点滅します。 

3. 力ーソルキー （0[ E 1 Shift I ) を使って修正したい位置に力ーソルを持っていきます。 

4. データ （0 〜9, a 〜 f ) をキーインします。 a 〜 f は小文字で入力してください。自 
動的に大文字になって表示されます。 

5. 修正が終わって J RET I キーを押すと、直ちにその内容が、ディスクへ書き込まれ 
次に修正すべきトラック No . とセクタ No , を聞いてきます。 

RET I を押す前に 丨 STOP I キーでブレークすると、そのセクタのデータは、すべて 
元のままです。 


6-13 .シークレツトファイル 

ファイルを保護するものにディスクやファイルの属性を指定する方法やプロテクトシー 
ルを貼る方法などがありますが、これらは、誰でも簡単に解除することができます。 
ここでは、1つのプロテクト方法について説明しますので、参考にしてください。 

1. 18トラック第1セクタより始まるディレクトリを第12，11，…セクタへと後方に転 
送する。 

2. 移動した後のディレクトリをすベて FF にする。 

というのがこの基本的な方法で、回復させるときは、その後 SAVE したファイルのディレ 
クトリに続いて、退避させていたディレクトリを順次書込むというものです。 

ディレクトリの少なくともファイル名の先頭を FF にすると、それ以降にディレクトリは 
ないと判断し、 FF 以降から新たに SAVE するファイルのデイレクトリが記録されていきます 
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〔図表 6 H 3〕 


18トラ:/ク 




転送した後、データをすべて FF にする 
(ファイル名先頭のみ FF でよよい。） 


① 

ディレクトリ転送 


③ 

最初の1バイ 
時、第2バイ 


卜が ID なので、 Secret 化した 
卜から6文字にキーワード、次 


の1八イトに転送したファイル数をセ 
る。 


卜す 



始めから70パイトが FAT として使用されてい 
て、データ保護のため、14,15，16セクタにそ 
れぞれ同じものが記録されている。 
mount 時にここの内容が本体内メモリに 
remove 時に本体内メモリのものが、ここに 
込まれる。 



L FILES を実行しても全く画面に表示されない。 

2. すべての ファイルは、 LOAD できなくなり ます。 

3. 新たなプログラムを SAVE することは、通常通り可能です。 

このとき FILES を実行すると、 SECRET 化後、 SAVE 又は OPEN した File のみが表 

示されます。 

4. Recover 後は、新たに SAVE したファイルと、 SECRET 化していた file すべてが 
FILES により表示されます。 

次に、そのプログラムと実行例を示します。 

100 CLEAR 2000 :DIM F 生 （ 15) 

110 FIELD#®, 1 AS ID$，6 AS K$，1 AS N$ 

120 FOR 1=0 TO 15!FIELD#0,IM16 AS DY$ ? 16 AS F$U) : NEXT 

130 INPUT n Drive No. H ;D:REHOME D 

140 DY$=DSKI$<D,13,13) 

im IF K$= H SECRET" THEN 298 

168 " Secret 

1?® PRINT "Do you make Secret File ? (y/n) 11 ； : KY$-INPUT$(1) 

130 PRINT; IF KY$<> ,1 y ,f THEN END 

190 S=1 ^ 

200 DY$=D3KI$(D ( 13,S) 

210 IF ASC(F$(0)>=255 THEN 250 ELSE DSK0$ D, 18,13 -S 

220 FOR 1^0 TO 15:IF ASC(F$(I))=255 THEM DSKO 幸 _D,13 ， S:G0T0 250 

230 LSET F$(I)=STRIN0$(16,CHR$(255)) : NEXT ' 

240 DSK0$ D,18,S:S=S+l:G0f0 200 
250 N=<S-1)^16+I:DY$=DSKI$<D,18,13) 

260 LSET K$= 11 SECRET 11 :L3ET N$=CHR$(N> 

278 GOTO 460 

280 " Recover 



fT イレクト ： r 


ID 
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Sector 1 
20 20 30 23 
20 20 C0 26 
4153 8i 20 
20 28 88IF 
2B 28 90 2? 
20 20 90 IE 

20 20 90 2A 
20 20 80 ID 

28 20 30 2B 


Drive 2 Track 

52 45 46 4F 52 
56 44 55 4D 50 

53 45 4152 43 
44 49 52 64 6D 
66 6F 72 6D 61 
62 6163 6B 75 
44 73 6Q 65 45 
40 45 4D 64 AD 
44 53 48 64 6D 


REFORM _枯 
リ DUMP 他 

SEARCH 日 AS_ 
DIRdmp ン 
-format x ) 

backup 丄 - 

Fsheet Jk 
HEM dm p 一 _ 

OSKdmp _+ 


290 PRINT 11 Do you recover this secret file ? (v/n) u ; : KY$=INPUT$( D 
390 PRINT: IF KY$O u y n THEN END 
310 N=ASC(H$) : DIM Fi$(N-l) 

320 FOR 1=8 TO N-1 

330 IF I HOD 16=0 THEN J=8 :DY$=DSKI$(D,18,12-15*!16) 

340 Fl$a)=F$n MOD 16) : NEXT 
358 S=1 

360 DY$=DSKI$(D f 18,S):IF ASC(F$(15)) <>255 THEN S=S + 1:G0T0 360 
378 FOR 1=0 TO 15:IF ASC(F$(I)) <>255 THEN NEXT:1=1-1 
386 FOR J=0 TO N-1:LSET F$(I)=F1$CJ) 

390 I=I+I:IF 1=16 THEM I=0:DSKO$ D,13,S:3=S + 1 : DY$=DSKI$(D,13,3) 

400 NEXT J : DSKO$ 0,13,3 ’ 

418 FOR S=12-<N-1 ； )^16*T012 :DY^DSKI$(D , 13,3) 

428 FOR 1=0 TO i5:LSET F$(I)=STRING$(16,CHR$(255)) 

438 NEXT I : DSKO$ Da8 ? SsHEXT S 
440 DY$=DSKI$(D, 18,1 3) 

458 LSET K$=STRiNG$(6,CHR$<0)) : LSET N$=CHR$(8) 

468 DSKO$ D,13,13:PRINT:PRINT "files 11 ;DsMOUNT D:FILES D:EHD 


実行前のディレクトリの内容（ダンプリストプログラムによる） 


実行すると、始めにドライブ No . を聞いてきます。 

run 

Drive No. ? 2 

Do you make Secret File ? (y/n) 

■files 2 
OK 

第 13 セクタの ID の後のキーワードをチェックし、 SECRET 化されたものであるかどう 
かを判断し 、 SECRET FILE にするかどうかを聞いてきます。 v y 〃 を入力すると 、 SECRE 
T 化を行なって最後に FILES を実行して、終わります。 

実行後のディレクトリを見てみると、 


9D7ADF43Q, 
c E 2 1 9 7 61 2 
7 7 3838883 


4 

2 


e 


FFFFFFFFF 
FFFFFFFFF 

FFFFFFFFF 
FFFFFFFFF 

F F F F F F F F 
F F F F F F F F 


F 

F 


tFFFFFFFFF 
s FFFFFFFFF 


c 


FFFFFFFF 

ffffffff 


F 

F 


8 0 2 0 0 0 0 0 0 
2 2 4 2 2 2 2 2 2 

8 

1008040400 
4 4 7 7 7 7 7 7 
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FF FF FF FF FF FF FF FF ?D1-SECRET 

FF FF FF FF FF FF FF FF FF0 - 

FF FF FF FF FF FF FF FF FF0 . 

FF FF FF FF FF FF FF FF FF0 .. 

FF FF FF FF FF FF FF FF FF0 . 


2 Track 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 


bee tor 
20 28 30 
FF FF FF 
FF FF FF 
FF FF FF 


確かにすベて FF になっています。 

また、第13セクタを見ると、 

Drive 2 Track 18 Sector 13 Cl us ter 25 


Drive 2 
54 65 73 
FF FF FF 
FF FF FF 
FF FF FF 


7EB Test 
FF0 m 9 m m 

FF0 ■… 
FF0 •_•_ 


確かにディレクトリへ書込まれています。 

ここで再度このシークレットファイルプログラムを実行すると、 


第2バイト目から SECRET 化されたディスクであることを示すキーワード vr SECRET 
と SECRET 化されたファイル数13 H (10 進数 19) が入っていることがわかります。 （ 回復時 
には、キ ー ワ ー ドは消されます。） 

この状態で新たなプログラムを SAVE すると、 

save tt 2 :Test 
Ok 

files 2 
Test . 1 

Ok 

その プロ グラムのみが表示されます。 

もう一度ディレクトリを見てみると、 


3 F F F F 
1 F LL F F 

F F F F 
F F F F 


4 

U-J 


5 F F F F 
4FFFF 

2 F F F F 
一〇 F F F F 

3FFFF 

4 F F F F 

5 F F F F 

4 F F F F 

3FFFF 

5 F F F F 

0 F F F F 
0 F F F F 


0 0 0 0 0 
F F F F F 
F F F F F 


4 

2 


e 

t 

s 

u 


F 

F 


1i 


F F F F F 
F F F FU¬ 
FF F F F 
F F F F F 

F F F F F 
F F F F F 

F F F F 
F F F F 

F F F F F 
F F F F F 

FFFFF 
F F F F F 

FFFFF 

FFFFF 


-FFFFF 

-FFFFF 

-FFFFF 
w F F F F F 


3 


F F F F l 
F F F F l 

F F F F l 
F F F F l 


F F F F 
F F F F 

F F F F 
F F F F 

F F F F 
F F F F 

t F F F F 
s F F F F 
u 

1FFFF 
c F F F F 

0 F F F 
3 F F F 


4 

2 


e 

t 


1* 


0 F F F 
2 F F F 

8 

1 0 F F F 
2 F F F 

k 

c 0 F F F 
a 2 F F F 
p 

T 4 F F F 
7 F F F 


e F F F F F 
V F F F F F 

r F F F F F 
D F F F F F 
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run 

Drive No* ? 2 

Do you recover this secret file ? <y/n) 


files 2 


Test . 

1 

REFORM. 

3 

UDUHP , 3 

SEARCH,BAS 1 

DIRdmp. 

format. 

1 

backup. 

1 

Fsheet. 1 

MEHdmp, 1 

OSKdmp. 

Error _ 
D-ecJi t , 

Dk 

1 

1 

PTRsub 

1 

U-list dat 1 

FATdsp. 1 

STHcpy. 


今度は、 RECOVER するかどうかを聞いてきます。 " y " を入力すると、直ちに回復作業 
を行ない、前に SAVE したプログラムも含めて、 FILES により画面表示して終了します。 
この時のディレクトリを見てみると、 

Drive 2 Track 18 Sector 1 Cluster 24 

54 65 73 74 20 20 20 28 20 38 30 FF FF FF FF FF 7EB Test j. 

52 45 46 4F 52 4D 20 20 20 80 23 FF FF FF FF FF 7C9 REFORM _#. 

56 44 55 4D 50 20 20 20 28 C0 26 FF FF FF FF FF 7ED リ DUMP 他 *"" 

53 45 4152 43 48 42 4153 80 20 FF FF FF FF FF 827 SEARCHBAS_ ■■••• 


前に SAVE した、、 Test 〃プログラムに続いて、 SECRET 化していたファイルが書込まれ 
ていることがわかります。 

この他の方法もいろいろ考えてみてください。 


6-14. FELD 文とファイルデザインシート 

Disk BASIC において、最高16個 （ #0〜# 15) のバッファを使用できますが、1つのバ 
ッファは、256バイトの容量があり、データファイル（ランダムアクセスファイル）の1レコ 
ー ド分 （ 1セクタ）にあたります。 

この1つのバッファ （ 1レコード…256バイト）をどのように変数に割り当てるかを指定 
するのが FIELD 文です。 


〔図表6-14〕 



150 









AS A$,20 
AS D$,50 


100 FIELD 
110 FIELD 


図表 6-14 のようにバッファを割当てるときは、 


100 FIELD#3,*2 AS A$,4 AS B$,2 AS C$,8 AS D$ 

-注）この場合必ずスペースを設けること。 

くっつける と、、' ASC " という 予約語と 
なり Syntax Error になる。 


となります。 

FIELD 文は、林0のバッファに対しても宣言可能です。但し、# 0でファイルを Open は 
できません。 

180 FIELD#0,9 AS AS AT$,1 AS CL* 

FIELD 文は、同ーバッファに対して何度も宣言できます。 


したがって、 1 つのレコ ー ドを例えば 4 つに分けてつかつ場合、 


108 FOR 1=0 TO 3 

110 FIELD #2 ? 1*64 AS DY$,10 AS A$< D ,20 AS B$(I),30 AS C$(I) 
120 NEXT I 、 


ダミ _ の変数 


また、2次元配列変数を利用して、 


100 FOR 1=0 TO 3: FOR J=0 TO 7 

110 FIELD #1,I^64+J*3 AS DY*，3 AS F$(I ? J) 

120 NEXT J.I 


などと、 FOR - NEXT 文で宣言することもできます。 

こうして、 FIELD 文で定義した変数と領域、およびその内容を、次に示すファイルデザ 
イン シートに書込んでおくと、後日プログラムを変更する場合や、同じデータファイルを、 

他の人が使う場合などに便利です。 


0 5 


«• 1 .+ 




$ t 
c F 

s S 
A A 

0 5 
3 2 

$ $ 
BE 
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〔函表 6-1 5〕 HLE DESIGN SHEET 

記入例 


FILE ： OE：S I GM SHEET 


FILE 隱 

ROARKS 

DESIGN !) BY 

MTE 

MEMBER.dat 

社貝管理プログラム 

山田 

AUG .1 5,1981 


1 

- J- 

A $ 社！!番号 



B$ 




AD$ ^0) 





1 


未使用 

T 

3 

1 

: 

\J 

5 j 


193 1 

W 


1. 

T 

3 

195 


m 


4 

197 


5 


このフアイルデザインシートをプリンタ （ PC -8023) を使って作成するプログラムを示 
します。 


100 CLEAR 508:E$=CHR$(27) 

110 LPRINT E$ IJ N w E$ ,l L008 ll E$ ll A ll E$ M C tl CHR$< 14)TAB(20) fl FILE DESIGN SHEET 11 CHR$C 15) 
120 LPRINT EVQIVTW 1 ; 

130 LPRINT w w 了 "STRINGWSZ, 11 - 11 ); 

140 LPRINT (t T— - , - 

150 LPRINT " | FILE NAME tt TAB<29) H I REMARKS 11 ; 

160 LPRINT TAB (82 )"丨 DESIGNED BY | DATE J (t 

170 FOR 1 =1 TO 2:LPRIN T H 1 H TAB<29) 11 I 11 ； 

130 LPRINT TAB(82) a PTAB(94> H rTAB 《 in> H 丨 ■sNEXT 
190 LPRINT H い STRING$<28, H - H ) H 上 11 STRINGWSS， 11 - 11 ); 

200 し PRINT 11J - 1 - > K sLPRINT 

210 LPRINT E$ M Q 11 ; 

220 FOR J=0 TO 3sLPRINT E$ 11 S0200 11 STRI N6$ (4,CHR$(0)) CHR$(3); 

230 LPRINT STRING$(31,CHR$(1))CHR$<3)SIRING$(135,CHR$(1))CHR$(3); 

240 LPRINT STRIN6$(23,CHR$(1))CHRf (3) SIRING$<3,CHR$(0)) M : NEXT J 

250 LPRINT E$ ,i T04 li 

268 FOR 1 =1 TO 64: FOR J=0 TO 3 

270 LPRINT USING" |_# 丨 )##| 

230 NEXT J sLPRINT E^TX6 n 
290 IF 1=64 THEN 350 

300 FOR J=0 TO 3:LPRINT E$ 1, S0200 ,I STRING$(4,CHR$<0)) CHR$(7) 5 
318 LPRINT STRI N0¢ <31,CHR$C2))CHR$(7)STRING$<!35,CHR$(0)> CHR$(7); 

320 LPRINT STRI N6$ (23, CHR$ (2) > CHR$ (7) SIR I NG$ < 3, CHR$ (0 >) 11 "じ NEXT J 

•330 し PR I NT : NEXT I ‘ 

350 FOR J=8 TO 3:LPRIHT E$ 11 S0 200 H STRI N6$ <4,CHR$(0)) CHR$(3); 

■3 仙 LPRINT STR I NG$ (31, CHR$ (2>) CHR$ (3) STR I N0¢ (135, CHR$ (2)) CHR$ (3); 

370 LPRINT STR I NG$ < 23, CHR$ (2)) CHR$ (3) STR I NG$ < 3, CHR$ < 0)) 11 11 ;： NEXT J 
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FI し E OE：S I G 卜 4 SHEIE ： 丁 


DESIGNED BY 


DATE 


FILE 



mms 


m 

m 

■Vi 


■ 

m 

mKl 

m 


匾 ] 

m 

B 

m 


E 

§bI\ 

m 

■ 


7 

"T 

m 


T 

面 


18 

u 


IT 

12 


12 

13 


13 

K] 


14 

15 

1 

! 

Tf 

u 

■ 

\6 

nr 

1 

IT 

1 13 

1 


19 


19- 

26 


p ** ■， i 

20 

21 


IT 

22 


22 

23 


n 

24 


24 

25 


25. 

JJJ 



271 


V 

28 


- 1 

28 

29 


29 

38 


38 

31 


S 

32 


32 

33 


m 

34 


34 

35 1 


35 

Z6 


¥ 

37 


1? 

38 


—-N 

38 

39 


39 

48 


¥ 

41 



■42 



43 


43 

44 


4f 

45 


45 

U 


A6 

4? 


A7 

49 


W 

49 


149 

58 



51 



52. 



53 



E3 



L55J 



晒 


國 

V - - - 

157! 


■ 

( 57 

觀 


1531 

i. __i 

59 


m 

油 


m 

m 


6\ 

62 


m 

63 ; 


因 

m 

. .. _____ j 

羽 



國 


n 

晒 


m 

關 


B 

關 


m 

晒 



134 


m 

1££1 


i 

T 

四 

m 


? 

If 

■ 


TT 

148 


12 

141 


13 

142 


14 

143 


15 

144 


16 



Tf 

146 


18 

14? 


If 

143 

； 

W 

m 


Si 



22 

151 

■■•，■与 

152 


23 

2A 

153 


2? 

154 


26 

固 


2? 



2B 

157 


窣 

158 


38 

159 


3T 

I ， ，■ II ■■• ， 

168 


32 

U1 


33 

M2 


IT 

163 


35 

W 


E 

U5: 


37 

\66\ 

W 


¥ 

39 

國 


¥ 

149 


41 

m 


42 

171 


43 

172 


花 

173 


45 

闕 


m 

175 



176 

, 


1177! 



m 



179 



W 



181 



m 



183 



晒 



11851 



m 



187 


醫 

188 


6% 

189 


61 

酗 



m 


<43 

m 

_ ~ -r ~ 
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6-15. デイスクの両面使用法 

デイスクの外観を下図に示します。 

〔図表 6-16 〕 



へッドがこの部分を移動しながら各トラック1 
セクタのデータを読み書きします。 


正方形のカバーの中を回転する薄いフレキシブル ディ スクには、一般に片面用の ディ ス 
クであっても両面とも同じように磁性体が塗布されており、次に示す方法で、加工すれば 
両面使用可能となります。 


〔図表 6-17 〕 


①プロテクトノッチ 


①プロテクトノッチ\ 141 63 」 



»-J I 

②インデックスホール 

(多6…裏表にあける。) 



(寸法は目安です) 


. プロテクトノッチを加工します 


〇 


• インデックスホ 




ルを対称位置に裏表にあける。磁気シートを傷つけぬよう下にプ 


ラスチックシートなどを敷いて、カッターナイフなどで慎重に0 6の穴を加工して 


ださ V 


〇 


3. format プログラムで format すれば完了 


〇 


注）裏面は、その性能を保証されているわけではありませんので、大事なファイルは、表 
面に、 SAVE された方が無難です。 
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Bank 

Font 

Pana^C 

Te1ex2 


実行後 

5588 dat 
EP-rom* 
P-plan. 
Telex! dat 

ソン If . 


実行前 

X-test 

Title 

Cost 

Telex2 

5580 


Inform dat 
E-fare * 

Slide - 

Grid dat 


E - fare . 
Laser • 
Telex • 
X-test dat 


Dot dat 
Bank • 
USRLST. 
EP-rom • 


Dot dat 
Inform dat 
Slide * 

USRLST. 


Cost 

Grid 

Parts 

Title 


Font dat 
Pana-C dat 

Parts . 

Telex 1 dat 


Laser . 
P-plan. 

ソン II • 

Telex • 


For 7=0Tof5 ?FVeLD#^^11 16ASDY^,16ASFD 辛く I> : NEXT 


INPUT"Drive No• ";D :N=8: S=1 

OYt^DSKIS(D, 13,3): FOR 1=0 TO 

IF ASC(FD.<I> > =0 THEN 160 
F*CN> =FD*<I ) : IF ASC< F^<N))=255 THEN 

"4EXT :S=S + 1 : GOTO 130 

Sort 

FORI=0TON-2:FORJ=I + ITON-1 

IF F 车く I) > P$<J> THEN SWAPF^<I> ,F^<J) 

MEXT J , I 


180 ELSE N=N + 






Wr i te 

FORI = 0TON: IF I MOD 16=0 THEN DY$.=DSKI 丰べ D 
LSETFD^CIM0Di6)=F^<I) 

IF IM0D16=15 OR I=N THEN DSKO* D,18,1^16+1 
MEXT SPRINT"Como1ete" 


18. 16 + 1) 


6-16. ファイルネームの並べ替え 

ディスケット内のファイル名の数が多くなると、目的のファイルを探すのに手間どりま 
すが、次のプログラムで、ファイル名をソート（並び替え）しておけば、すぐ見つけ出せ 

ます。 


2 3 2 1 

t t t 
aaa 
d d d 


2 2 3 12 


2 2 


1 3 


t t 
ia 

d d p XJ 



2 2 2 2 


2 6 2 2 


2 2 2 2 


2 2 2 2 


3 2 4 2 


a 

d 


a 

d 


_ 




3 2 4 1 


413 2 


00000800000 00000 
@12 3 4 5 6 7 3 9 0 12 3 4 5 

41 1 11 111 41 1 1 1IX 2 2 2 2 2 2 
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第 7 章 USR 関数と機械語 _ 

7—1 PC - モニタの使い方 

7-1-1 モニタの起動法および巳 ASIC への戻し方 

7-1-2 各コフンドの説明 

(1) D コマンド 

(2) S コマンド 

(3) G コマンド 

(4) W コフンド 

(5) し LV コマンド 

(6) TM コマンド 

(7) 画面ク U ア 

7-1-3 バラメータ 

7-1-4 mon コマンドのもラ 1 つの使い方 

7-1-5 PC- モニタの使い方(圏表） 

7-2 DEFUSR のし<み 

7—3 機械語サフルーチンの呼び方 

7 - 3~1 巳 ASIC からコ ー ルする場合 

7-3-2 USR 関数と引数 

(1) 数値型引数 

(2) 文字型引数 

7—4 巳 ASIC を機械語で 

7-4-1 ファンクシヨンキー•イニシャライズ 

7-4-2 ファンクシヨンキー退避♦復活 

7 - 4 _ 3 シ ー クレット•メッセージ 

7-4-4 スク 1 J ーン コピー 

7-4-5 アン 1 J スト 

7-4-6 ディスク •オー トスタート 








A^r rj 

7 早* 


USR 関数と機械語 


y m Monitor Test 关关关 
PRINT "Now at N-BASIC" 

PRINT M mon <y/n )?"5 

IF INPUT 本 （ 1) く > ，ツ " THEN END 

PRINT 

PRINT "Now at Monitor" 

MON 
PRINT 
GOTO116 


7 - 1. PC モニタの使い方 

機械語を使ううえで必要なものとして、モニタプログラムがあります。これは、直接 
メモリ内容を操作したり、外部入出力装置とのデータのやりとりを行なうものです。ここ 
では、 PC_ 8001 のモニタの使い方についてマニュアルに書かれていないことにも触れなが 

ら解説していきましょう。 

PC- 8001 のモニタプログラムは、 N-BASIC ROM の最後 (5C2CH 〜 5FFFH) に常駐し 
ています。 0.9K バイトと非常に小さなもので、スクリーンエディットができないなど、不 
便な点もありますが、使い方に慣れてしまえば、そんなことはありません。 

7-1-1 モニタの 起動法および BASIC への 戻し方 

通常は BASIC のコマンド待ちの状態で mon HrETI と入力することにより起動しますが、 
プログラム中からの起動も可能です。ここで、 mon の後には何が続いてもよく、例えば 
monitor でもかまいません。（ただしこの場合は BASIC に戻ったとき、 Syntax error が表 

示されます） ^ 

モニタのコマンド待ちの状態で | CTRL ! B を 入力す ると BASIC へ戻り OK が 表示されま 

す。ただし、 BASIC プログラム中からモニタを起動した場合は、もとのプログラムに民り 

ます。次のプログラムで試してみて下さい。 


>00000000 


■I » L 


5 7 


LST 
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7-1-2 各コマンドの説明 

⑴ D コマンド 

メモリの内容を表示する コマンドです。 パラメ — 夕は、 スタ—トアドレスと エンド 
アドレスを入力します。エンドアドレスを省略すると、16バイトだけデータが表示さ 
れて コマン ド|寺ちに戻り ます。 

データを表示している途中でやめる場合は、 STOP キー、一時止めたい場合は、 
ESC キーを使うのは BASIC の場合と同じですが、 ESC キーのリピートはありませんの 
でいくらか使いやすくなっています。 

(2) S コマンド 

メモリの内容を変更するコマンドです。ハ。ラメータは、変更したいアドレスを入力 
します。コマンド入力後、そのアドレスの内容が表示されますので、変更する場合は 
2ケタの16進数、変更する必要のない場合は スペースを 入力していきます。 

また 、 RET キーを 押したときや、 エラーと なったときは、そのときのアドレスか'、 
カウンタ （ FF 30 H 番地、 FF 31 H 番地）にセットされますので、続けて行なうときは、 
Si RET 1だけですみます。なおこのカウンタは、他のコマンドの実行や、 BASIC へ 
1度戻った後でもそのまま変わりません。 

⑶ G コマンド 

指定したアドレスにジャンプするコマンドです。パラメータは、ジャンプ先のアド 
レスを人力しますが、省略すると、〇番地になってしまいますので注意が必要です。 
参考までに、ジャンプするときの各レジスタの値は次のようになっています。 

AF -0 A 4 AH 
BC =5 C 5 EH 
DE =5 C 82 H 

HL =ジャンプするアドレス 
SP =スタックエリアのとり方によって変わる 
ジャンプしたプログラムからモニタまたは、 BASIC に戻したいときは、プログラムの 
最後を次のようにしておくとよいでしょう。 

籲モニタへ戻すとき 

JP 5 C 66 H 
• BASIC へ戻すとき 

LD HL ,(0 FF 34 H ) 

RET 

(4) W コマンド 

カセットテープにメモリの内容を書き込む コマン ドです。スタートアドレスと エン 
ドアドレスの2 つの パラメータが必要なわけですが、このアドレスはどこでもかまい 
ません。例えは VRAM をセ ー ブ 、口 ー ドしてみるというのもおもしろいものです。 

このコマンド実行中は STOP キーがききませんので来 W 0， FFFF のようなことを 
するとしばらく待たされることになります。 

(5) L ， LV コマンド 

カセット テー プからの 口ー ドおよび 口ー ドべリファイコマンドです。 ハ。ラメー タは 
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ありません。テープリードエラーおよび STOP キーで中止した場合は？を表示してコ 
マンド待ちに戻ります。また、 LV コマンドでデータに誤りがあった場合も同様です。 

⑹ TM コマンド 

メモリをテストするためのコマンドですがめったに使うものではありません。最近 
はメモリの性能も向上してきて、よほどひどいものを使わない限りメモリのテストは 
必要ないはずです。くわしくはユーザーズマニュアルの方を参照して下さい。 

(7) 画面クリア 

ICTRLI L または CLR キーを使うことで画面をクリアします。これで力ーソルは左上 
に移りコマンド待ちになりますが、この時点で ICTRLI B を人力しても BASIC へは戻 
れません。 モニタの 唯一のバグでしょうが、ある程度、■械語がわかっている人は、 
モニタのプロ グラムをながめてみて、なぜこうなるか考えてみてはいかがですか、（答 
は簡単なものです）。 


7-1-3 パラメータ 

モニタの コマン ドのパラメー タは すべてアドレスですが'、このアドレスの 入力は何ケタ 

の 数字でもかまいません。4ケタ以上入力した場合は、 最後の 4ケタが有効になります の 
で入力誤りをしたときは、続けて入力してやればよいわけです。 


7-1-4 mon コマンドのもう1つの使い方 

mon コマンドを実行したとき、 7 FFFH 番地のデータが 55 H であれば' 7 FFCH 番地に 
ジャンプするようになっています。拡張用 ROM を使う場合に何かと便利なものです。 



7 -卜 5 PC モニタの使い方（図表) 

来モニタの起動と復帰 



e 二夕のコマンド C 来 ’ の表示中有効 ) 


コマンド 


D (Display) 


内 


容 


モリ内容の表示 


S (Set 


G(Go) 


W (Write) 


L 、 Load ) 


LV ( Load 


Verify 


TM( Test 


Memory 


八 


B 


Lori CLRl 


八 


M or RET 



SPACE 


ESC 


メモリへの書込み 


ジャンプ 


CMT への セーフ 


CMT から口 




口一■卜べリファ 


ラメータ 


ADDRESS ： ADDRESS 


衰 


ADDRESS* 


ADDRESS 




ADDRESS. ADDRESS 


なし 


なし 


モリのテス 


BASIC へ戻る 


画面クリア 


コマンド待ちに戻る 


ft 


n 


なし 


なし 


なし 


なし 


なし 


なし 


なし 


潑上記以外の文字を人力した場合、またはパラメータ 
リがあると 7 を表示してコマンド待ちに民る。 

嶔パラメータの米付は番略可。 


を コマン ド実行中に使えるキー 


D コマンド 


S コマンド 



時停 il 


中止 



アドレスを一1 


アドレスを+ 


終了 


, TM コマンド、実行中は何も受け付けない。 




















来 パラメータの 入力 


〔例〕 D コマンドの場合 

来 DC 7 C 800， D 030 CFFO 

有効 有効 

二米 DC 8 0 0， CFF 0 


7-2 .DEFUSR のしく み 

USR 関数の開始番地を指定するのに DEF USR = &H XX XX というのも用います。 
これは、関数の定義に使う DEFFN とよく似てはいますが、実はたいへんなちがいがあ 
るのです。 

まず、 DEFFN についてみてみましよう。 

DEFFN というのは、ユーザーが関数を定義するためのものですが、次に示すようにダイ 
レクトモードで使うとエラーとなってしまいます。（下線がついているところは、キーボー 
ドより入力したもの。以下の例でも同様） 

de-F f na (x> =xt£K 
Illegal d meet- 
Ok 


また、プログラム中で定義しておいても、プログラムの訂正や抹消を行なうと、他の変 
数の値と同じように、クリアされてしまいます。 

次の例で51かめてみて下さい。 


10 de-F f na く >0 in <x> 


20 injout x 
3© jpr ijrt% ^Pna <k> 
40 end 


run 

? ~T5 B S 
• 1016 
Ok 

? -fn a(32p^? 

•88387 

Ok 


new 

Ok 

? fna(3 2,5 1 

Undefined user function 
Ok 
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Ok 

mon 

寒 DEA3B, 
EA3B A5 
EA40 44 
EA48 44 
* 


ところが、 DEFUSR については、ちゃんとダイレクトモードでも指定可能で、また、プ 
ログラム中で一度指定すると、その後プログラムを訂正したりしても、その役目を果しま 
す。 DEFFN の例と比較してみて下さい。なお、32 FCH からは ROM 内の SIN 関数ルーチ 
ンです。 

10 def usr=&H32fc 
20 input- x 
^0 pr* int. usr* <x> 

40 end 
run 

? 75.5 
. 1016 
Ok 

? usr <32.5) 

.88387 

Ok 

new 

Ok 

? usr* ¢32 .5) 

.8838? 

Ok 


つまり、 USR 関数というのは、 DEFUSR で一度指定しておけば、リセットまたは電源を 
切らない限りその機能が失なわれないわけです。これは、使い方によっては、非常に意味 
のあるもので、複数のプログラム中で同じ機械語サブルーチンを使うような場合は、最初 
のプログラム A で、 DEFUSR を実行しておけば、次に実行するプログラム B や C において 
は、その必要がなくなるわけです。 

それでは、どういうしくみでこうなっているか種明かしをしましょう。 

まず、 PC 本体をリセットして下さい。 

それからモニタモードで、米 DEA 3 B , EA 4 E を実行してみて下さい。次の様になってい 
るはずです。 

NEC PC-8001 BASIC Ver* 1.0 
Copyright 1979 CC) by Microso-ft 


次に、 BASIC に民ってから、 DEFUSR を実行してみて下さい。ダイレクトでも、プログ 
ラムでもかまいませんが、ここではダイレクトで行ってみます。 


5 

A 

44 

44 

55 

5 44 
A 44 

4 A A 

5 4 4 
A 44 

E 

44 55 
A4 Aft 
E 
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def ， usr0=8cHii22 

Ok 

defusri = 8cH3344 
Ok 

d©fus ： r8=8cH5566 

Ok 

defusr9=&H 7788 

Ok 

mon 

*DEft3B,EA4E 
EftSB 221144 33 
EA40 44 ft5 44 A5 
EA48 44 A5 44 66 

*5¢ 

Ok 


\smmmm rwr— bbeh Msm ■ ■ 


先ほどの例と比べてみてどこが変化したところはわかりますね。つまり、 DEFUSR は、 
〇〜9について、 EA 3 B 番地から2バイトずつ飛び先アドレスが書き込まれるわけです。 
このエリアは、リセットしたときにイニシャライズされるだけですから、 USR の指定がず 
っと残るというわけです。 

ここで、頭のいい読者の方ならわざわざ DEFSUR としなくても直接このワークエリアに 
値を書き込めば DEFUSR を実行したのと同じになるのではないかなと思われるでしょう。 
実はその通りで次の例で試してみればわかります。 


NEC PC-8081 BASIC Ver 1.0 
Copyright 1979 <C> by Mionosoft. 

Ok 

mon 

#SEA3B 
EA3B A5-FC 
EA3C 44-32 A5 — 

*5¢ 

Ok 

print usr<32.5) 

.88387 

Ok 


これは 、 DEFUSR 二 & H 32 FC を実行したのと同じものです。 


5 

A 

47 

47 

58 

A8 

545 

C45 
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ところで、 USR を定義する以前にワークエリア上にある 44 A 5 というのは何でしようか 
実は、これは、 USR が未定義の場合 Illegal function call の番地へ飛ばすためのもので、 
別に深い意味はありません。 

これに関連して、ユーザー関数のクリアのしかたもわかりますね。つまり 、 DEFUSR 
二 & H 44 A 5 としてやればよいわけです。 
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7-3. 機械語サフルーチンの呼び方 


7-3-1 BASIC からコールする場合 

BASIC から機械語ルーチンをコールしたい場合、 N-BASIC では、 USR 関数を用いま 
す。 USR 関数は、 DEF ステートメントによって、スタートアドレスが設定されます。もし 
DEF ステートメントで、定義せずに USR 関数を用いると Illegal function call エラーと 
なりますが、これはイニシャライズのときに、 USR 関数のスタートアドレスが 44 A 5 H と 
なっているためです。 

USR 関数は USR の後に0から9までの数値をつけることによって最高10種類まで定義 
することができます。しかし、 USR 関数を使う前に再定義をしてやれば、別に数字や種類 
の限度にこだわる必要はありません。ここで、 USR 関数というものを実際のプログラムを 
通してみることにしましょう。 

まず、機械語ルーチンが、関数として働く例として次のプログラムをあげておきます。 


list 

.uuu 
1010 
1020 
1030 
1040 
Ok 
run 

sin( 45 °) = « 706825 
usr ( 45 ° . 706E325 

Ok 

この例では、機械語ルーチンとして ROM 内の SIN 関数のところを使ったわけですが、 
これで、なぜ機械語ルーチンをコールする場合、 USR を使い USR 関数と呼ばれる意味が 
わかるかと思います。 

次に、機械語ルーチンを関数として使うのではなく、単なるサブルーチンとして使う例 
を示します。 

なお、この章で掲載するサンプル•プログラムは、次の3つの部分に分かれています。 

①機械語ルーチン 
(2) BASIC プログラム 
③機械語とアセンブラ•リスト 

アセンブラは、ザイログ社 Z -80 文法に準拠しています。なお、アセンブラの各命令の意 
味については、ここでは説明を省いており、 Z -80 アセンブラに関する他の参考書に譲る 
ことにします。 


REM 木 ** us r function 求*本 

DEFUSR=? ， : H32FC 

TH=45sRD==3 - 14JKTH/180 

PR I NT "sin ( n ; JHt ( 1,0 ) 5 SIN (RD) 

PRINT " usr ( n ; TH; ,M> ) : り , ； USR (RD) 
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mon 

* DE 800 ? ES 16 
E 800 5 E 23 56 
E 808 40 0 D 20 
E 810 0 D 20 FD 
% 


REM %%%%% Sound %%%%% 
CLEAR 300，紐 E 7 FF 


1000 
*_ »■ *» 

1010 

1020 DEFUSR 二 ?,: HE800 

1030 INPUT HE 弔 
1040 FOR 1=0 TO 4 

1 00 U D lJI l v 1 V ^ IJ R ( V A し （ 11 *S: H 11 ** 卜 H E 贫〇〉 

1060 NEXT 
1 070 GOTO 1030 


( プログラム 1.2) 


このプログラムは、 BEEP の音を使っていろいろな音色を出すものです。モニタから機 


械語を入力して、 BASIC のプログラムを実行すると、 


が画面上に現れますので、 4 


ケタの16進数を入力してみて下さい。どうですか、これは機械語だからこそできる技なの 
です。 


本本本本本本本本本本氺本氺本木木本氺氺氺氺本本 
* SOUND 本 # 本氺氺本本本 # 本本 ** 

ij/ \ 1 / iJLf i^ 1 iJL* ij/ 1 tin* 

界不甲不不 A 不不不不 JJC 本本不系序.卒軍不不卒糸系 


E 800 5 E 
E 80123 
E 802 56 
E 803 42 
「£804 4 B 
E 805 3 E 20 
E 807 D 340 
E 809 0 D 
&:80 A 20 FD 
EBOC 4 B 
ESOD AF 
E 80 E D 340 
ES 10 0 D 
E 81 1 20 FD 
E 813 ID 


EE 314 
E816 


10 EE 

C 9 


_ 


_ 


LOOP 


LI 


L 2 


ORG OE 300 H 


SOUNDS し D 

INC 

LD 

ID 

し D 
し D 

OUT 


JR 

LD 

XDR 

OUT 


JR 

DEC 

DJN 

RET 


E 5 ( H し） 

HL 

D ,( HL ) 
B , D 
C，E 
A , 20 H 
(40 H ) « A 


DEC C 


NZ , LI 
C , E 



(40 H )« A 


DEC C 


NZJ.L2 

E 

LOOP 


人力された 16 進数の下位バイトを 
E レジに。 E=PEEK(HL) 

HL =HL+ 1 

上位バイトを D レジに。 

D-PEEK(HL) 

B 二 D(B レジを外側ループの力 
ウンタとしてセット） 

C = E (C レジを内側ループの力 
ウンタとしてセット） 


BEEP 1 

C 二 C 一 1 

IF CO 0 THEN GOTO LI 
C-E 

A = 0 

BEEPO 
C = C-1 

IF COO THEN GOTO L 2 
E = E — 1 

B=B — 1：IF B < > 0 THEN 

GOTO LOOP 

RETURN 


w 


EB 17 


( プログラム LI 


3 0 
D 4 

0 3 9 
2D c 

E F E 

3 A E 

BBci 

44 1 

2 D D 

4 F 1 
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END 



機械語サブルーチンをコールするのになぜ、関数をと思う人もいるかもしれませんが、 
今の例のように代入文の右辺にダミー変数をもってくることによって立派にサブルーチン 
コールができるわけです。 


7-3-2 USR 関数と引数 

USR 関数は機械語プログラムを呼ぶだけでなく、値をわたすこともできます。これは、 
引数と呼ばれ、数値型（整数、単精度実数、倍精度実数）と文字型のものがあります。 

(1) 数値型引数 

数値型の引数は、浮動小数点アキュームレータ（以下 FACC と略します）を通し 
てわたされます。 FACC はワークエリア上 （FO A 4 H 〜 FOABH ) にあり、数値の 
型によって、次のように格納されています。 


〔図表 7-2 〕 
FACC 


F 

0 

A 

4 

； F 

0 

A 

5 

F 

0 

A 

6 

F 

0 

A 

7 

F 

0 

A 

8 

F 

0 

A 

9 

F 

0 

A A 

F 

0 

A 

B 


整数型 


F 0 A 8 


F 0 A 9 


引数 
単精度型 



倍精度型 


F 0 A 4 

\ 

\ 


, ' 


1 

1 

T 




\ 1 

F 0 A B 


なお、引数は、 HL レジスタが指すアドレスから格納され、 USR 関数が呼び出されると、 
HL レジスタの値は F 0 A 8 H となります。 

ここでは、例として整数型へ引数をわたす場合をあげておきます。次のプログラムは、 
エラー コードを引数として、その エラー メッセージをプリントするプログラムです。 
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：1000 
1010 

1020 


R[-：M ***** 
CLEAR 300 


ERROR MESSAGE 


山必■山^ L * 

そ■旱不 .| 子* 


C し 30 CN&HE フ FF 
DE:FUSR4:HE800 


1030 INPUT N ERROR CODE" 5 ECX 
1 040 DLJMM Y=USR (EC% > s PR I NT 
1050 GOTO 1030 


承本本本本本**本*木本本本本本本本本本本 
本 ERROR HES 本本#本本本本 

Tr ~ ™ T' 1 * ^ * ^ r 11 n ' ^ ^ fp 


n 


; E :-:: ( OFOASH ) Error \Code 

；Error mes top アドレス 

A = E 


IF A — 1EH く 0 THEN SERCH 
ELSE E = 15H (Unprintable error) 

エラーコ— ドに対するメッセージの 
I 格納アドレスをサーチ 


E 819 


END 


HL ニメッセー^ジ開始アドレス 

End of string (IFA=0 THEN RETUR] 
Output one character (1 文字出力） 

HL-HL+ 1 
GOTO PNEXT 


エラーコードは i バイトですみますので、引数を整数型として、その下位バイト 
を E レジスタにわたすようにしています。 2 バイトともわたしたいときは、プログ 
ラムの先頭で、 


LD E ， 
INC HL 
LD D . 


( HL ) 


( HL ) 


としてやれば、 DE レジスタに整数の値がはいります 


〇 


mon 

本 DE 80 0,E£)18 
E 800 5E 21 F1 
E 808 02 1E 15 
ES10 20 F9 7E 
E818 F9 
* 


93 8 
321 

ED 3 

11 一•ふ 

E 5 F 
F 4 D 

B 〇 8 
7 c C 

7 D 7 
3 CB 



文字型引数 

文字列が引数となるときは、ワークエリア上のストリングディスクリプタによつ 
てひきわたされます。ストリングディスクリブタとは文字列の長さ、格納アドレス 
(下位•上位）を示し、この先頭アドレスは、 DE レジスタにより指されています。（通 
常、 DE レジスタの値は、 EF58H です）。ここで示す例は、文字列を引数としてわた 
し、その文字列を逆にプリントするプログラムです。 

man 

*DEaOO :, E 811 

E800 EB 4E 23 5E 23 56 EB 06 
E808 00 09 2B 41 7E DF 2B 10 

E810 FB C9 

本 


1000 REM ***** IN V STRING 本 # 本本 # 

1010 CLEAR 300 ? S<HE7FF 
1020 DEFUSR 4 HE 800 

1030 INPUT "STRING";ST$:IF ST$: :"" THEN 1030 
1 040 DUM$=USR(ST 尜 )sPRINT 
1050 GOTO 1030 


本本 * 本 * 本 # 本*承本氺氺木寒本本本本 

拿 INV STRING ***** 

***** 本木 * 木 *** 本本** 本 #* 





ORG 

OE 80 OH 



E900 

EB 

IVSTRs 

EX 

DE.HL 


HL = VARPTR(ST$) 

E 801 

4E 


し D 

C n (H し） 

n 

C: 吨 ength 二 PEEK (HL) 

EB02 

23 


INC 

HL 


HL-HL+ 1 

E 803 

5E 


し D 

E ， <HL) 


E=PEEK (HL) 

EB04 

23 


INC 

H し 


HL = HL+ 1 

E 805 

56 


LD 

D P (ML) 


D 一 PEEK (HL) 

E：806 

EB 


EX 

DE.HL 

m 

5 

HL:-Top of string 

E 807 

0600 


LD 

B, 0 


B = 0 

ES09 

09 


ADD 

HL^BC 


HL 二 HL+BC 

E80A 

2B 


DEC 

H し 


HL^HL-1 (文字列の最後のアドレスをセッ 

E80B 

41 


LD 

B j C 


B 二 C ( 文字の長さをカウンタとしてセット） 

E80C 

7E 

LOOP: 

LD 

A,(HL) 



E80D 

DF 


RST 

18H 

m 

5 

Print one character 

E 80 E 

2B 


DEC 

HL 


HL = HL-1 

EBOF 

lOFB 


DJNZ 

し 0 OP 


B 二 B —1 : IF BOO THEN LOOP 

E811 

C9 


RET 



RETURN 


EB12 


END 


rnon 

*DES00 ? E£il4 
E： 800 D5 EB 46 
E808 D178 B7 
随 0 77 2310 


i 000 REM 


101 0 
1020 
1 030 


本本求*氷 

CLEAR 3 


C o n v a 
>0, ^HE7F r F 
D E F (.1S R ™ ?/ H E S 0 0 
INPUT 1 


z 


本本本氺求 


- n String H 5ST$ 

1 U ’4 U CV 本 =UR く ST ■ 率） 

3.05¢) PRINT CV$ 

1 060 GOTO 1030 


本本本本木本准本本木本 * 本冰本本求本本 

* => A-Z 氺农求傘本求 

本本本求本本本 * 本*本本本木本本本本本 


E800 
E 801 
ES02 
EQ03 
E804 
E 805 
E 806 
EQ07 


D5 

EB 

46 



5 E 

23 

56 

EB 


_ 


■ 


AZCDNV 


ORG OESOOH 


PUSH 

EX 

LD 

INC 

し！） 

INC 
L D 
EX 


DE 

DE.HL 
B ,( HL ) 
HL 

E,(HL) 
HL 

D , < HL ) 
DE, HL 


_ 


DE の値を退避 

HL = VARPTR (ST$) 

B: =Length 二 PEEK (HL) 
HL = HL+ 1 
E 二 PEEK (HL) 

HL-HL+ 1 


_ 

n 


D -PEEK (HL) 

HL:-Top of 


strinq 


USR 関数では、引数を機械語ルーチンにわたすだけでなく、 BASIC の方へ値をもどす 
こともできます。最初に示した SIN 関数などが良い例です。結果を戻すには、原理的には 
FACC とストリングディスクリプタおよび、 FACC の型を示すワークエリアに値を代入し 
てやります。引数と結果が同じ型であれば、数値型については FACC ， 文字型については 
ストリングディスクリプタに値を戻すだけですみます。また、型が異なる場合でも、同じ 
数値型同志なら FACC のタイプを示すワークエリア （ EF 45 H ) に値を入れれば可能です。 

ここでやっかいなのは、引数と結果が、数値型と文字型の関係のときです。上記の 3 つ 
のワークエリアを設定するのに加えて、ストリングディスクリプタのスタックを扱うなど 
手間がかかります。次に示す例では ROM 内のルーチンにまかせて いますが、 これが最も 
簡単で確実な 方法で しょう （52 A 9 H は、 HL レジスタで文字列の先頭を指して コールす る 
と、上の処理をすべてやってくれる ルーチンです。 文字列—文字列でも使えます） 
ここでは、引数と結果の型が同じものの例として、文字列のうち小文字のアルファべッ 
卜を大文字にして返すプログラムを、引数と結果の型が異なるものとして、エラー メッセ 
ージを文字列として返すプログラムをあげておきます。 


B F 
E 5 

/C 1 

5 C 

3D 

2 C 

EE9 
5 7 C 

3 8 8 

2 c F 
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LD 

CP 

JR 

LD 

CALL 

npn 

■ «P+ F4 kill! ■ 

: me ; 

JR 

CALL 

RE r 


E；, \HL) ; E；: :::: (OF0A8H) Er r or Cg 

HL„ ； 1 o* / F1H ^ Error me 5 t: op 

A,E 

iEH 

C, BERCH 
E ,1 : :5 H 
45 COH 
E 

HL 

N7 5 SERCH 

5 つ A9H : 弓 I 数と結果の処理ルーチン 


■ 


ESOO 
EQO1 

E804 
E805 
ES07 
E 809 
ESOB 
E80E 
ESOF 
E B1 n 


5£ 

21F137 
7 B 

FE1E 

3802 

1E155 

CDC045 

ID 


£：RMES 


SERCH; 


20F9 


E«12 CDA 95 
E815 C9 


RET 

LGGP : LD 

CALL 

LD 

INC 

DJNZ 

RET 


POP 

LD 


utz 

A , B 
A 
Z 

A, (HL) 
5FC1H 
< HL) , A 
HL 

LOOP 


de の値を mi 日（文字列のポインタをリセット） 


IF A- 0 THEN RETURN 
文字列がヌルなら BASIC へ 


% 


Con vert ( 大文字蛮換） 

大文字をもとのアドレスにセット 

HL = HL+ 1 

B = B — 1: IF B 〇 0 THEN LOOP 
ELSE RETURN 


FPU /、 




! ""■ 1 漏 m r \ 

bt-：D 


E815 END 


man 

本 DE 800 阳 1!3 

E 80 0 5E 21 FI37 7B FE IE 38 
E808 62 IE 15 CD CO 45ID 23 
EB10 20 F9 CD A9 52 C? 

% 


1000 REM %%%%% ERROR MES (2) 求*本木本 
1010 CLEAR 300,2 く HE:7FF 

1 020 DEFUSR 4 HE 800 

1030 IN PUT "Error cod b";EC% 

1 040 MSG 料 JSR(ECX) ' 

1 050 PRINT MSG 本 

1060 GOTO 1030 


本本氺本本本本本木本本本本本本本氺系本本本 

本 ERROR MES (2 ) 本本本本 
本本氺冰本本本本本氺本木本本本本挲本本拿冷： 

m 

n 

QRG OEBOOH 


E 3 ( ⑸ 

D1 

E 809 

78 

E80A 

B7 

E80B 

CS 

E80C 

7E 

E80D 

CDC15F 

E8J.0 

77 

£811 

23 

E912 

1OF. 8 

E814 

C9 


DD 
L L 


■I' 
rhl 







7-4. BASIC を機械語で 

この稿では、本書で取り扱った BASIC プログラムを機械語で書いた場合のプログラム例 
を紹介するとともに、有用な機械語ルーチンおよび未使用コマンドの使い方を説明します。 


7-4-1 ファンクションキー•イニシャライズ 

第3章キー入力では、ファンクションキーのイニシャライズ（初期設定）をする際、次の 
ステートメントを実行しました。 

10 FOR 1=0 TO 159:P0KE^HEA?C+I , PEEK<^H3A8 1+ I) : NEXT I 


これは、 3 A 81 番地から格納されている 160 バイト分の内容を、そのまま順次 E A 7 C 番 
地から書き込んでいます。同様のことを機械語で行なうには、ブロック転送（ある番地の 
メモリの内容を別の番地にそのまま移動させる）の命令を実行します。 

ブロック転送を行なうためには、 Z -80 の3つのレジスタペア （ HL ， DE ， BC ) を次のよう 
に初期設定しておく必要があります。 

HL =転送する内容の開始番地 
DE = 転送先の開始番地 
BC = 転送するバイト数 


そして、ブロック転送命令 LDIR を使います。これを実行すると、 HL が指す番地の内容 
を DE が指す番地に転送されます。そして 、 HL = HL +1 、DE = DE + 1 、BC = BC — 1 
が実行され、 BC の値が0になるまで続けられます。次に、アセンブラ•リストを紹介しま 

す。 


LD HL ，3 A 81 H 

LD DE ， E A 7 C H 

LD BC , A 0 H (10 進で 160 バイト） 

LDIR 


この 3 つのレジスタペアの口ード命令は覚えやすく、順に、21、11、01となります。ま 

た、 LDIR は、 EDB 0 で、ブロック転送後、 BASIC のコマンド待ち （3 C 82 H ) にジャンプ 
するようにします。それでは、プログラム例を次に紹介します。モニタ.モードでキーイ 
ンした後、 GFF 40 IRETURN I で実行してください。 


mon 

XDFF46,FF4D 

FF40 _ 81 3 A [IT] 7C EA [IT] A0 
FF48 80 ED B8 C：3 82 3C 

关 

OK 
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21813 A 

し D 

HL f 3A81H 

X 17CEA 

し D 

DE,0EA7CH 

0 1A000 

し D 

BC, 0A0H 

EDB8 

し DIR 


C3S23C 

JP 

3CS2H 


关关关关关关关关关关关关关关关关关关关关关关关关 

关 FUNCTION KEY INIT 关关关关 

关关关关关关关关关关关关关关关关关关关关关关关关 

« 

ORG 0FF40H 


FF4E END 

7-4-2 ファンクションキー退避•復活 

次の例では、定義されたキーの内容をあるメモリ領域に退避させ、保存しておき、必要 
な時に復活させるというものです。 

退避は A 二 USR ( l )、 復活は A = USR (0 ) で行ないますが、ポイントは、これらの引 
数を A レジスタに入れ、その OR をとり、0かそうでないかを判定し、ブロック転送の転送 
先を変更していることです。 


ファンクションキー退避、復活プログラム 

(機械語 バージョン） 

ソースプログラム 

关关关关关关关关关关关关关关关关关关 M 关 

关 FUNTI ON KEY HL 

关关关关关关关关关关关关¥*关关关关关关 


FF40 


START s 

編 

EQU 

0FF40H 



EA7C 


FUNCKY 

: EQU 

8EA7CH 



00A0 


LENGTHsEQU 
* 

160 





m 

ORG 

START 



F F 48 

7E 

USR: 

LD 

A, (HL) 

A = 引数 （ 0 か 1 ) 


FF41 

217CEA 


し D 

HL,FUNCKY 

HL=EA7CH 


FF44 

1151FF 


LD 

DE,FUNi：：BF 

DE = FF 5 1H 


FF47 

B7 


OR 

Hi 



FF48 

200 1 


JR 

N2 , し i 

IF A < > 0 THEN L 1 

FF4A 

EB 


EX 

DE,H し 

ELSE SWAP DE ， 

HL 

FF4B 

01A000 

し i : 

し D 

BC,LENGTH 

BC = 160 


FF4E 

EDB0 


LDIR 


ブロ ッ ク転送 


FF50 

C? 

a 

RET 


RETURN 


FF5 i 


n 

FUNCBF:DS 

m 

LENGTH 

FF51H から 160 バイ 

卜確保 

FFFi 


腎 

END 





ADDRESS OF THE FIRST SOURCE BYTE 

ADDRESS OF THE FIRST DESTINATION BYTE 

NUMBER OF BYTES TO BE MOVED 

BLOCK TRANSFER 

JUMP TO BASIC COMMAND LEMEL 


0 3 6 9 6 
4 4 4 4 4 
F F F F F 
F F F F F 
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16 0 m Function Key m 

110 , • 

120 Mach i ne Language Version 

130 / usinq FF40H - FFF@H 

140 •* 

150 ... DEF USR=^HFF40 
160 •’ A=USR< 1)•function k ey ■ヲイヒ 

170 •• A=USR( 0> function H ey フッカツ 

180 ^ • 

190 FOR AD==acHFF^0 TO 心 HFF50 
200 READ DA^ 

210 POKE AD,gAU "&H"+DA 李） 

220 NEXT 


使い方 


246 DATA 7E,2i 11,51,FF , B7,20 ,1 t EB ,1 t A0,0 , ED , B0 , C9 

■* * ^ * * ■ ■ ■ ** * «* * ■ * f ■ 


7 _ 4 _ 3 シ ー クレット•メッセ ー ジ 

機械語で任意の文字列を画面に表示するにはどうしたらよいのでしょう？ 答えは簡単 
です。 N - BASIC の ROM 内に文字列出カルーチンがあり、これを利用すればよいのです。 

HL レジスタに文字列が格納されている開始番地を入れ、文字列出カルーチン52 EDH を 
コールします。ここで1つ注意することは、文字列を格納した際、その終りの印として、 
00〔 CHR $( 0 )〕を最後に付けておく必要があることです。 

試しに、 FF 50 H から次のアスキーコード（文字列）を入れて、 HL レジスタに FF 50 H 
を口ードし、 52 EDH をコールしてください。このプログラムは FF 40 H から人れ 、 GFF 
40で実行することにします。 PC-Tech Know 8000と表示されます。 

0R6 0FF40H 

_ 

FF40 2150FF LD HL ,0FF50H HL 二文字列アドレス 

FF43 CDED52 CALL 52EDH 文字列出カルーチン 

FF46 C3823C ： JP 3C82H basic へジャンプ 

m 

FF49 END 
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mon 

XDFF40 

FF40 2158 FF CD ED 52 C：3 82 3C ： 66 00 00 60 80 00 00 

关 

关 

mon 

关 DFF50,FF60 

FF50 50 43 2D 54 65 63 68 4B 6E 6F 77 20 38 30 30 30 
FF68 00 

关 

关 

5¢ 


さて、次のメッセージは何でしょうか？シークレット* メッセ—ジとしておきますので、 
読者が出力してみてください。なお、メッセージを1字1字、アスキーコードに変換し、 
メモリに書き込むのはめんどうですので、次頁の BASIC プログラムを用いると便利です。 

mon 

关 DFF40 

FF40 2150 FF CD ED 52 C：3 82 3C ： 08 06 08 08 08 66 86 

关 


シークレット•メッセージ 


6 5 
6 6 


6 0 0 5 4 4 
8 2 2 6 7 2 


0 4 6 0 0 E 3 A 
2 5 8 2 2 6 7 2 

506 0 0 F 5 A 
7 2 8 2 2 662 

F 3 6 0 0 0 4 A 

6 4 8 2 2 2 7 2 

9-000 0 5 1 A 

7 5 2 2 2 .6 6 2 

0 0 0 0 0 2 5 
2 2 3 2 2 7 6 2 

B 7000120 
6 6 3 2 2 6 7 2 


E 

6 


E 

6 


0 0 
3 2 


0 0 7 
2 2 6 


E 

2 


19 8 0 0 5 0 3 
6 .6 8 2 2 7 2 7 

8 4 8 0 0 F 5 2 
66222667 

417 0 0 9 8 3 

5 6 7 2 2 5 6 7 

0 5 F 0 0 0 4 5 
2 6 6 2 2 277 

6 2E0 0 0 0 
CO 7 6 2 2 2 2 2 


B 0 0 _6 3 
4 2 2 2 6 4 

8 0 0 A F 0 
6.2 2 2 6 5 

CO0 0 A 0 0 0 
6 2 2 2 2 2 0 

0 0 0 0 0 0 0 
F 5 6 7 89A B c D 
DFFFFFFFFF 
XXFFFFFFFFF 


6 0 
8 2 

0 

D 6 2 
F 8 7 
F 

J 6 F 
0 0 6 
5 

F 0 0 
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REM 关关关 SECRET MESSAGE m 
し INEINPUT"MESSAGE ? 11 ;A*:A*=A*+CHR*(0) 
FOR 1=0 TO し EN く A 本〉一 1 

POKE &HFF50+I s ASC(MID»(A* ? I+l, 1)) 
NEXT 
END 


メッセージ書き込みプログラム 


7 - 4-4 スクリーンコピー 

今度は 、 Disk BASIC の未使用コマンドを用いて、スクリーンコピーを行なうプログラム 
を紹介します。コマンドは、 CMD を用いることにします。 CMD のジャンプ•アドレスは 

F 0 FCH で、そこから3バイトは、 C 3.75.18 となっています。 1875 H は 、 Disk BASIC 
Feature のエラーを出力してコマンド待ちに戻るルーチンですので、 1875 H を、スクリーン 
コピー.プログラムを格納するアドレスに変更します。ここ 

に 40 H 、 F 0 FEH に FFH を書き込みます。 


では、 FF 40 H とし、 F 0 FDH 


mon 

XSF0FC 
F0FC C3- 


75-40 18— FF C3 - 


次に、 FF 40 H からスクリーンコピーのルーチンを書きます。この時、 HL の値を保存し 
ておいてルーチンの最後は RET ( C 9) とすると、 CMD コマンド実行後、 BASIC へ戻って 
きます。 


fnon 

XDFF40 
FF40 E5 

Ok 


CD 4 A 12 Ei C9 @0 00 3C 00 00 00 00 00 00 0( 


MM 关关关 M 关关关关关关关关关关关关关关关关 

关 SCREEN COPY "CMD X 关关 

关关关关关关 X 关关关关关关关关关关 M 关关关 M 


_ 


_ 


FF40 

FF41 

FF44 

FF45 


E5 

CD4A12 

El 

C9 


■ 


FF46 


ORG 0FF40H 


PUSH 
CAL し 
POP 
RET 


H し 

124AH 

H し 


_ 


SCREEN COPY ROUTINE 


s RETURN TO BASIC 


END 


0 0 0 0 0 0 
1 2 3 4 5 xw 
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<DE) ? A 

H し 

DE 

A,<HL> 
(DE) f A 


FF 80 H に行番号の下位バイトをセ 


FF 81 H に行番号の上位バイトをセ 


mon 

关 DFF40,FF7F 
FF40 2123 88 
FF50 12 2313 
FF60 7E FE FF 
FF70 13 1 A 7? 

关 


7-4-5 アンリスト 

次のサンプル•プログラムは、 LIST コマンドを実行しても、ただ 0 K を表示して、プロ 
グラム.リストがとれませんが、その実行はできるというものです。 

BASIC プログラムの開始番地は 16 K の場合、 C 021 H ' 32 K の場合、 8021 H からで、80 
23 H から2バイトは、最初の行の行番号が格納されています。この2バイトを FFH とし 

て、初期化すれば OK です。ここでは 32 K を例にとります。 

コマンドは、やはり未使用コマンドを用い、リストを消すには ISET 、 復活させるには 

IREST と定めます。 ISET のジャンプアドレスが F 105 H 、 IRESET が F 108 H ですので、 
これらのアドレスにそれぞれの処理ルーチンアドレスをここでは FF 40 H 、 FF 5 DH と設 

定します。 

mon 

关 SF105 

F105 C3 — 75-40 18-FF 

F108 C3 - 75-5D 18-FF C3- 

关 

プログラムはエラー•チェックがなされており、リストが消されているのに ISET した 
り、リストが復活しているのに IRESET すると 、 Illegal function call のエラーとなります。 


关关关が关关 
关 UNLIST "ISET*IRESET 




ORG 

8FF40H 

FF40 

212380 

_ 

I SETi LD 

HL ^8023H 

FF43 

1180FF 

し D 

DE,0FF80H 

FF46 

7E 

LD 

A f <HL) 

FF47 

FEFF 

CP 

0FFH 

FF4? 

2805 

JR 

NZ , UNLIST 

FF4B 

1E05 

し D 

E,5H 

FF4D 

C3F93B 

JP 

3BF9H 


； HL=First Line Number 
；Work Area ? Save Line Number 

A に行番号の下位八イトをセット 

; IF FFH then Error 

;I 11eoa1 function call 
；Error message output r ou tine 


c c 

D N N D D 
L I I L L 


2 3 3E2 
12 17 1 

0 12 3 4 
5 5 5 5 5 
F F F F F 
F F F F F 


B 0 3 0 
3 3 2 0 

9 3 7 0 
F 2 7 0 


3 


2 0 


3 1 A 0 

c 2 i 0 

5 c F 0 

0/3 F 0 

E 2 0 0 
18 80 


5 3 10 

0 c 1 0 

0 7 B 0 
2 7 3 0 

F B 9 0 
F 2 F 0 

E 7 3 0 

F 7 c 0 

E F 5 0 
7 F 0 0 

F E E c 
F 3 1 3 


0 2 5 2 
8 10 8 

1 E 8 3 
17 2c 
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FF5D 212380 IRESE1 

FF60 7E 

FF61 FEFF 

FF63 2885 

FF65 1E05 

FF67 C3F93B 


A 」 0FFH 
(HL) ? A 

H し 

<HL> ,A 
3C82H 


3EFF 

7? 

2B 

77 

C 3 8 2 3 [: 


FF6A 1180FF 
FF6D 1A 
FF6E 77 
FF6F 23 
FF70 13 
FF ァ i 1A 
FF72 77 
FF73 C 3823 C: 

FF76 


LIST: LD 

し D 
し D 

INC 

INC 

し D 
し D 

JP 

m 

5 

END 


DE,0FF80H 
A, (DE> 

( H し ）, A 

HL 

DE 

A, <DE) 

(HL) ,A 
3CS2H 


;Initialize line number 

8024H に FFH をセット 

8023H に FFH をセット 
; JUMP TO BASIC ： 


;IF FFH Error 

;Illegal function call 
;Error message output r ou tine 

FF80, 81H に退避していた 
行番号を 8023, 24H にセット 


7-4-6 ディスク*オートスタート 

DiskBASIC で、プログラムを RUN または LOAD するには、ディスクシステムの起動（ス 
イッチオンまたはリセット）、システムの読み込み、 OPEN するファイルの数の指定、 
MOUNT 、 目的のファイル名の入力という一連のプロセスが必要ですが、これらの作業を 
すべて PC にまかせ、プログラムを才ートスタートさせることができます。 

PC をスイッチオンした時、ディスクが接続されていれば N - BASIC の IPL プログラムに 
よって、ドライブ1に人っているシステムデイスヶットのトラック0、セクタ1の内容が 

PC 本体の C 000 H 〜 C 0 FFH に LOAD され、 C 000 H から実行されます。これにより、トラ 
ック0、セクタ2〜6、トラック1〜2の内容が EFFFH まで口ードされます。オートスタ 
一 卜にするには、トラック0のセクタ1と2の内容を少し変更して、システムディスケッ 
卜に書き込んでおけば OK です。 

さて、ここで問題になることが2つあ 1 )ます。まず1つは、 OPEN するファイルの数の 
指定、そして、もう1つは RUN させるファイル名の決定です。この例では、ファイル数 
は3、ファイル名は BOOT とすることにします。 

DiskBASIC では、 OPEN する数は画面に Howmanyfiles ( 0〜 15) ?と表示して、キー 

インさせる方法をとっています。この部分のプログラムの逆アセンブラ•リストを紹介し 
説明しましょう。 


3 


2 ) ， 

0 L s H 
s H H I H 9 
，く U _I 5 F 

i ， F ，， B 

H A 0 z E 3 


D D p R D p 

しし c J 


L J 


c 

D D E D p 
し L D L J 


? 8 9 A 
5 U15 5 
F F F F F 
F F F F F 


5 

5 


180 


LD 

CALL 

CALL 

JR 

RS 丁 

OR 

し D 

JR 

じ合し L . 

JR 

し D 

OR 

JR 

し D 


C06E- 
C 0 6 F ~ 
C0 70 " 
C071- 
C072- 
C073- 
C074- 
C075- 
C076- 
C077™ 

C878- 
C079- 
C07A- 
C07B- 
C07D- 
C07E- 
C0 7F*~ 
C080- 
C081- 
C082- 
C083- 
C034- 
C885- 


H し， C103H 
52EDH - 

3E5CH - 

C,C06EH 〜 

10H 

A 

A,05H - 

Z ,C08DHs 
4CD5H 
NZ 5 C06EH 
A,D 
A 

NZ,C06EH 
A 5 E 
10H 

NC,C06EH 
(E9D4H),A 


PRINT '' How many files 
INPUT A 

(フアイル数の人力） 

入カミスの際 C 06 EH に> 
ヤンプ（文字） 

RET キーのみを押したと 
きのフアイル数 （ 5 ) 

RET キーのみを押したと 
き C 08 DH にジャンプ 


入カミスの際、 C 06 EH 
にジャンプ（数>15、，な 
ど） 


イ ルの数を格納 


C0 6E- 
C071- 

CS74- 

C677- 

C0 79 - 

C67A- 

C0 7B- 

C0 7D- 

C67F- 

C082- 

C0 84- 

C085 - 

C： 8 86 - 

C0S8- 

C0 89- 

C08B- 

C08D— 


C 06 EH 〜 C 073 H で " Howmanyfiles " を表示して、キー入力待ちにします。オートス 
タートさせるには、この部分は不要ですので NOP ( OO ) に変更します。また、 C 07 DH 〜 
C 08 CH までは入カミスの際のチェック•ルーチンですので、この部分も NOP に変更しま 
す。次に変更後のリストを示します。 


p R D 

c J L 


定 

匕 H 


数 


H 

3 

0 

A 

pppppppppppp pppp)ppip)p)p 
3000 0 0000000^00_404040940 旧此 5 ;扣 

'NNNNNNNNNNNN-iNNNNNNZZ.N 


3 

0 


0 0 00 0 0 0000000 E 00000000 
000000 00000003 00000000 


0 

0 


1 2 E c 9 

c 5 3 4 E 

3 D c 5 5 E 5 A ,0 0 14 
0 E 5 F 0 0 D E E 1 E D 

1 D D co7 7 E 8 D 0A7 0 B E 0 2 
2CC3DB32C27B27F3 3 
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C 086- 
C087* 
C@ 88™ 
C089- 
C08A- 


C100" 

c 10 i **" 

C104- 

C107- 

C10?» 

C10C- 

C10D- 


★ この部分は、トラック〇，セクタ 1 


PUSH 

LD 

LD 

ID 

LD 


JP 


H し 

HL ， C110H 
<EDC0H),HL 
A,0 1H 
(EA68H),A 


コマンド格納アドレス 


POP HL 


17C8H 


m 


o 


翁 


r 


u 


DC I 1 


C ! 21 


BOO 




Cl10 6D 6F 75 6E 74 313A 72 75 6E 22 42 4F 4F 54 22 
C120 0D 00 

3¢ 个 r 

C/R コマンドの後り 


★ この部分は、トラック 0 、セクタ 2 に人っています 


Q 


これで、システムのスイッチオンまたはリセットで、 BOOT というプログラムが自動的 


に RUN します。なお、ディスケットの内容変更は、第6章のディスク•エテ 
グラムを使えば、簡単に行なえます。 


攀 


プロ 


次に、ファイル名ですが、本書第3章キー入力のファンクションキー.フラグの使い方 
と同様のことを機械語で行ないます。 

mount 1: 〇^上〇〇丁て/尺というコマンドを C 110 H から入れておき、 EDC 0 H 、 
EDC 1 H にそのアドレスを設定し、 EA 68 H に1を入れます。このとき、 HL レジスタを使 
用するので、 HL の値を PUSH して保存し、処理後、 POP で戻して、 BASIC へジャンプさ 
せます。以下にリストを示します。 


0 0 0 0 0 
0 0 0 0 0 


1 D 

c E 




7 

t* 


0 0 18 8 
1 C 0 6 C 


512 E 213 
E 2 2 3 3 E C 


p p p p P 
0 0 0 0 0 

N N N N N 


〇 


ま 

y 

LY 

て 

人 
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第 8 章ランダム•テクニック _ 

8— 1 REM と’のメモ 1 」効率の違い 
8—2 REM 文の変った置き方 
8—3行番号の不思議 

8—4 エラーメッセージをすべて表示するには 

8-5 RUN 〜と G 〇丁〇〜の違い 

8—6 巳 EEP 、 MOTOR に変数が使える 

8-7 DATE $ にうるう年かない 

8—8 DMA をストッフさせて実行速度アップ 

8-9 画面 1 」 バース 

8—10クラフィック•スイッチ 

8—11 CHR $(0) と、、" のちが い 
8-12 1行は256文字以上可能である!？ 

8—13 数値はメモ 1 」内でどろ表現されているか 

8—14 VARPTR について 

8—15 VARPTR で ¥256、 mod 256 を 

8—16 AUT 〇のときの似だ行の作り方 

8—17 LIST や DELETE の後〔•，〕をつけると 

8-18 DATA 文のランタ厶アクセス方法 

8—19 動的な RES 丁〇 RE 文 

8-20 ERASE 利用法 

8—21 サフルーチンに CLEAR 文はタメ/ 

8—22 FIX と IN 丁の違いは 

8—23数値と文字列の変換 

8—24 DEF 旧 T で定義された変数は9 

8 —25 文字列の分解 • 见理は . 




第 8 章ランダム•テクニック 


关关关关关关 h 关关关 h 关关关关关关关关关关关关关关关关 
* 关 

^ PC-800 1 UTILITY 3¢ 

关 关 

关关关关关关关关关关关关关关关关关关关关关关关关关关关关关 


X 关关关关关关关关关关关关关关关关关关 M 关关关关关关关关关 
关 关 

X PC -808 1 UTILITY 关 

关关 
关关关关关关关关关关关关关关关关关关关关关关关关关关关关关 


8-1. REM と’のメモり効率の鹿い 

プログラムをわかり易くするために、プログラムの先頭や、途中に REMARK 文を設け 
ます。 

REMARK 文には、〔 REM 〕または〔’〕を用ぃますが、メモリへは、異なる形で記憶されま 
す。 

( DREM を使った場合 


mon 

关 D 8020 _ 

8020 08 45 80 0 A 08 3 F 20 2 A 2 A 2 A 2 A 2 A 2 A 2 A 2 A 2 A 


•夫 




1 

リンクポインター 



、本 

i ハ 

L 


行番号10—— 



—スぺ 


REM の中間盲語 



米米 


(2)’を使った場合 


SECM 


0 0 
12 


0 0 0 
3 4 5 


0 0 0 0 0 
12 3 4 5 
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1 


File Name Sortino 




2 . プログラムの区切りやサブルーチンの初めにおく 


mon 

关 D 8020 

8020 00 4? 80 0 A 00 3 A 8 F E 4 28 2 A 2 A 2 A 2 A 2 A 2 A 2 A 


关 




マルチステートメントの区切 y 記号，： 


REM の中間言語 


4. 


_〔’〕の中間言語 


すなわち、メモリ内では 


REM の場合 
の場合 


8 F 

3 A *8 F * E 4 




となっており、 〔 REM 〕 力 


イトで済むのに、〔’〕の場合3バイトも使用している 


とになり、メモリ効率が悪いことになります。 

もっとも、 REMARK 文をつけることそのものが、メモリを余計に使うことになるので 
たった2バイトの差がどういうことは、ないのですが . 


なお、〔’〕は、マルチステ ー トメントの区切り記号である〔：〕を含んでいるので、 
なしで、行の終わりなどに REM 文としてくっつけることができます。 

例 


曝 


100 F_RINT，，zr ウ mG 


G 


1 月カラ 12 貝 7 テ " ノ IT ウウイ 


8-2 • REM 文の変わつだ置き方 


REM 文は、 


• 何のプログラムであるかを示すため、プログラムの先頭におく 


〇 


% 

% 

% 

220 REH ’mOk 、、 Print Subroutine 

_ 

などがふつうの使い方ですが、次のような場所に置〈こともできます。 


0 0 0 0 0 
12 3 4 5 



0 

: 7 r 
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3. GOTO 文、 GOSUB 文、 THEN 文の後には、〔’〕や〔: REM 〕 をつけずに REM 文を 
置くことができます。 


150 F $( N )= FDi ( I ) : G 0 SUB 220 .. .PRINT SUB 

150 F $( N )= FD $( I ) : GOSUB 220 ' Print Sub — や…をつけ 

ると、小文字の REM 
文がつけられますが、 

がないと 

大文字に変換されます。 


4 . RETURN の後につけるときは、〔： REM 〕 や〔’〕が必要です 

260 RETURN "To Main Routine 


5. DATA 文の場合は、〔： REM 〕 または〔’〕をつけて、マルチステートメント化する必 
要があります。 

100 DATA 251,238,247,260 y 9/30, 1981 

または、 

100 DATA 251,280,247,260 : REM 9/30 ， 1981 

6. 一般のステートメントについても、その後に、〔： REM 〕 または〔’〕をつけて ' REM 
文をつけることができます。 

100 LPRINT CHR$(27) a E" "Elite Mode 

または、 

100 LPRINT CHR$(27) 8 E M : REM Elite Mode 

REM 文のあとに、マルチステートメントで命令を入れても、実行されません。 

100 REK EDIT VkVkH ，、 : input "Code No . " ;c 

^ --- , - — --- / 

この部分は、実行されません。 

REM 文の一部とみなされます。 
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8-3. 行番号の不思議 


行番号は小さい順にリストされることになって います 


〇 


10 REM ❻ MX 关关 

20 REM 关 


38 REM 关 
40 REM 笑 


PC- 800 1 UTILIT 


、+、 


50 REM $• が : ぐ C ぐ〇⑼ぐチがが关 


ところがあれつ？どうしたので しょう 


〇 




关 


50 REM 
40 REM 
30 REM X 
29 REM \ 

10 REM : が )^ 
Ok 


UTILIT 


f、 


大きい方からリストされましたよ/ 


\ i ，二 X ； 

0 REM 钱任 ^^ m 
0 REM 关 % 

0 REM '+、 PC —800 1 UTILITY X 

0 REM 关 • 天 : 

0 REM ㈤ 


あれっ？ 
これらは、 
の形式は、 


こんどは、行番号が全部0になりましたよ。 

メモリ内の行番号の部分を書き換えれば簡単にできるのです 


メモリの1行 


00 



00 


次の行のリンクポインタを指しています。 


リンク 

ポインタ 


> ノヽ & レ——夕 


となつているので、このうちの、行番号(行の内容のうちの、最初の2バイト）をモニタモ 
ー ドなどで書き換えれば、良い訳です。 
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8100 


mon 

关 D 8820 , 
8020 0 0 
8030 2 A 
8040 2 A 


? 37+0 
? 3a04 


Address 

Address 

27 00 4E 


行番号 10 を示す 


500 

/ - NEXT w 

i thout F 

572 

OR _ Syn ta 

x error - 

57B 

RETURN w 

ithout G 

4A6 

□SUB•Out 

of DATA 

5D2 

•Illegal 

func t i o 

57E 

n call-0 

verf1ow■ 

5A? 

Ou t o+ m 

emory _ Un 

687 

defined 

line num 

5FC 

ber- Subs 

cript ou 

587 

t oi ran 

ge-Redim 


run 

Start 

End 

37F0 

3808 

3810 

3820 

3830 

3840 

3850 

3860 

3870 

3888 

3890 


关 S 8023 

8023 0 A - 00 00- 
X 38046 

8046 14-80 00 - 

关 S * 3069 

8069 IE -00 00- 
关 S 80 SC : 

808 C 28-60 00 - 
JCS 80 AF 
80 AF 32-00 
S0B0 00- 

RENUM することにより元に戻ります 


8-4 .エラーメッセージをすべて表示するには 

ェラーを起こした と きに表示されるェラーメッセージは、文字列 データと して、 N-BASIC 
に関しては、 37F2 番地から 3 A04 番地まで、また、 Disk BASIC に関しては、 D3E5 番地か 
ら D57E 番地に格納されていて、各々 、 1〜、50 〜のェラー番号がつけられています。 

ダンプリストでみてみると、 


というふうに、アスキーコードで格納されていて、各文字列の間は、00で区分されている 
ことがわかります。 


0 AH 

8 2 2 

4 A A 

4 2 


6071F0ED5D 

4044606676 


0 

2 


2 0 4 9 7 5 


7 2 


4 p 

5 6 


7 5 


5 F ? 
7 6 6 


2543 c 9045 
77466727 yo 

2F0E 62502 


4F414F0E84 
7674760626 

5 

7 

F 

6 

8 
6 

4 
7 


7 6 


0 E 
2 6 


6 7 6 7 5 


5 8652 FE90 
666776660 

04F65D925 
276 A66676 


9 8 9 0 0 
6 7 6 2 2 


6 5 c 3 7 

7 6、66 6 


7 17 4c 
7 6 7 7 6 

0 4 0 5 1 
2 727 6 


F D 0 3 E c 


4 6 


0 3 
2 7 


6 < 


0 0 4 2 15 
0 2 6 6 6 6 


4 

5 


EE 
6 4 


F 7C 6552 E 
4 6 666776 


89205 CFE30F 
57506666526 

5352 cl 09069 
45546626066 


045c 3462 F 3 
0556676767 

253905550 E 
5454276626 

F2F0EF4245 

4540646676 


A A 0 

2 2 2 

A A 0 

2 2 2 

A A 0 

2 2 2 

AAA 

2 2 2 

HA 0 
2 2 2 

A A F 

2 2 co 

A A 0 

2 2 0 

0 A 4 
2 21 L 

F ft 0 
8 2 8 

i 0 A 7 
0 2 6 


A A 0 
0 2 0 


^9 

示 

を 

20 

号 

者 

一了 


A A 0 

2 2 2 

A A 0 

2 2 2 
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これらを表示するには、次のような簡単なプログラムですみます。 

1 i st 

100 AD=lkH37Fl;N=l 

110 IF AD=^H3A04 THEN AD^HDSES :N=50 : LPRINT : LPRINT 
120 IF AD=ikHD57E THEN END 
130 AD*=CHR*<PEEK<AD)) 

140 IF AD*OCHRt<0) THEN LPRINT AD*; : GOTO 160 
150 LPRINT:LPRINT USING H ;N;;N=N+1 

1 <S0 AD-^AD^* 1 : GOTO 110 
Ok 


N - BASIC のみのときは、110行を削除し、120行を110行に変更しアドレスを & H 3 A 04 に 
変更してください。画面に出力するときは、 LPRINT を PRINT に変えてください。 

実行例 1… NEXT without FOR 

2 •••Syntax error 
3 … RETURN without GOSUB 

4 .. •Ou t of DATA 

5.. . I 11egal +unc tion cal1 

6., •Over 十 1ow 

7.. .0ut o+ memory 

8•,•Undetined line number 

9.. .5ubscript out of range 
10■••Redimensioned array 
lit.-Divisi on by zero 

12 … 111egal direct 

13 1 .. Type mismatch 

141.. 0. t of string space 

15.. .5.ring too 1 ohq 

16n ..String formula too comp!ex 

1/•..Can / t continue 

18-..Undefined user function 

19" .No RESUME 

20 … RESUME without error 

21*..Unprintable error 

22«.•Missing operand 

23•_ _Line buffer overf1ow 

24.. •Position not on screen 

25.. .Bad Fi1e Data 

26 .. .Disk BASIC Feature 

27, • .Communications Buffer Over-f 1ow 

28.. .Port not initialized 
2? ■..Tape read ERROR 
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50" 

.FIELD overflow 

51 " 

• In ternal error 

52" 

•Bad file number 

53 " 

•File not found 

54" 

.Bad file mode 

55" 

-File already open 

56" 

•Disk not mounted 

57. . 

•Disk I/O error 

58 " 

.File a 丨 ready exists 

5?" 

. Disk already moun ted 

66. . 

.Disk full 

61 . . 

• Input past end 

62" 

i Bad file name 

63. . 

•Direct statement in file 

64. . 

.Bad allocation tab I e 

65" 

.Bad drive number 

〇 ^ • ■ 

- Bad track/sector 

67" 

• Deleted record 

68 .. 

. Rename across disks 

69 " 

.Sequen tial af ter PUT 

70" 

-Sequential I/O on 1 y 

71 " 

.File not OPEN 

72" 

.File write protec ted 

73. . 

■ Disk off 1 in© 


8-5. RUN 〜と GOT 〇〜の違い 

RUN 〜と GOTO 〜、同じようで違ぃます。 GOTO 〜はその行からそのまま実行をするの 
に対して、 RUN 〜の場合は、実行する前にすベての変数をクリアし、ファイルをクローズ 
します。したがって、新しくプログラムを実行する場合には RUN を、途中で STOP したプ 
ログラムを別の場所から再開するためには GOTO を使用するのがよぃでしょう。 

これと同様なものとして、 END と STOP の違ぃがあります。 STOP 文の場合には、 
Break in 〜が表示され、ブザーが鳴ってから OK が表示されますが、ファイルは OPEN 
されたままです。 END 文の場合はそのまま OK が表示されますが、その前にすベてのファ 
イルがクローズされます。もちろんどちらの場合も変数はそのままです。 
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8-6. BEEP , MOTOR に変数が使える 

ご存じですか？ BEEP や MOTOR に変数が使えるんです。いや、変数だけでなく式も 
使えるんです。式の値が0のとき BEEP 0 、0以外の値のとき BEEP 1 と同じになります。 
MOTOR も同じです。ただし、式の値は〇〜255でなければなりません。 

例えば 、 A = 5 : BEEPA を実行するとブザーが鳴り始めます。 

また 、 IF P = 5 THEN BEEP 1 ELSE BEEP 0 は 、 BEEP _( P 二 5 ) と書けます。 

( P 二 5 ) の前に 一 （マイナス）がつけてあるのは、式の値が〇〜255でなければならないか 
らです。 


8-7. DATE $ にうるう年がない 

日付を表わす DATE $、 これにはうるう年がありません。2月28日の次は3月1日になっ 
てしまいます。これというのも、実は、 DATE $ は、年のくり上がりがないからなのです。 

PRINTDATE $ で表示される年は、単に DATE $ 二''〇〇/〇〇/〇 CT で代人したものが、 

そのまま表示されているだけなのです。 

もう一つ、 DATE $ はおもしろい事ができます。次のものを実行して下さい。 

AA = 5 

DATE $ 二、' 82/ AA /01" 

PRINT DATE $ 

何と、月の部分には変数が使えるのです。 


8-8. DM A をストツブさせて実行速度アツブ 

PC では画面表示のために DMA といって、 DMA コントローラが、 CPU を止めて 、 VRAM 
を読んで、データを CRT コント ローラへ送るという作業を行っています。この間は プロ グ 
ラムの実行は止まっています。 

したがって、 DMA を止めてやれば、プログラムの実行が30%近く速くなります 。 DMA 
を止めるためには、 「 OUT 104, 0」を実行します。これを実行すると画面が消えてしまいます。 
DMA が行なわれなくなったからです。| CTRL I +G を押して下さい„ブザーが鳴ります 
が、時間が短かくなったでしょう。 

DMA をもどすためには rWIDTH ，」 を実行します。 DMA がもどると、また画面が表示され 
ます。次のサンプル_プログラムで行番号10を入れたのと入れないのとで実行速度を比べ 
てみてください。 
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10 OUT104,0 
20 TIME*= ,, OOsOO:OO n 
30 FOR 1=1 TO 5000 
40 S=S+I 
50 NEXT 
60 WIDTH 80 
70 PRINT S 
80 PRINT TIME* 


8-9 .画面リバース 

たとえばビーム砲が爆発したとき、画面を一度にリバースさせられたら…と思ったこと 
はありませんか？また実際にそれを行なっているプログラムも見うけられます。 

これは実に簡単で、 0 UT 81, 33を実行するだけです。画面が反転し、黒ぬきの文字が表 
示されます。もとにもどすには 0 UT 81, 32を実行します。 


8-10. グラフィツクスイツチ 

グラフィックスイッチを立てるとグラフィックモードになるというのはどういうことで 
しょうか。まず、第1にグラフィックスイッチを立てただけではグラフィックモードには 
ならないということです。 COLOR ， ，1を実行したあと 、 PRINT CHR $ W を行なわなければ 
なりません（グラフィック—キャラクタの時は COLORO ” 1をしないといけないときがあ 

ります。） 

グラフィックモードとは、グラフィックを多く使用することを仮定したモードです 。 PC 
— 8001では1行中で20回しかアトリビュートを変化させることができません。キャラクタ 
モードでドットを打つと、ドットの前後でキャラクタ—グラフィック — キャラクタと2回 
のアトリビュートの変化が起こっています。したがって、数多くのドットを打って行くと 
すぐに限界に達してしまいます。 

グラフィックを使用していて、画面に変なキャラクタが表示された経験はあるでしょう。 
これは、アトリビュートの変化が20回の限界を超えてしまい、もはやグラフィックを表示 
することができなくなり、対応するキャラクタが表示されてしまったのです。グラフィッ 
クモードで使用すると、このようなことは起こりにく くなります。（キャラクタを多用しな 
い限り起こりません）。 

逆にグラフィックモードでキャラクタを使っていると、キャラクタがグラフィックに化 
けることがあります。これも同じ原因です。 

つまり、グラフィックモードとはグラフィックがキャラクタに化けることが少ないモー 
ドであり、キャラクタモードとはキャラクタがグラフィックに化けることが少ないモード 
です。 
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別の言い方をすれば、グラフィックモードはグラフィックのみを使用している限り「化 
け」が出ないモードで、キャラクタモードはその逆ということになります。 

最後に、次のプロダラムをキャラクタモードとグラフィックモードの両方で実行して、 
「化け J の頻度の違いを十分見て下さい。画面中、四角いベタが出た場所は、キャラクタ— 
グラフィックの化けが起こった所で、◎や EtBs など“ W ” でない文字が出た場所はグラフィッ 
ク—キャラクタの化けが起こった場所です。 


10 WIDTH 30 ,25:CONSOLE0 ,25,0,0 :C0 し OR, ,1 :PRINT CHR. 李く 12) 
20 X=RND< 1) 关 160 : Y=RND< 1) 100 : PSET(X , 丫 > 

30 X=RND< 1> ; Y=RND< 1)X24 :し OCATEX , Y ; PRINT"w" 

40 GOTO 2y 


8-11 . CHR $(0) とヌルストリング 〔、、"〕 のちがい 

CHR $(0) と''"は、同じものと、錯覚しがちですが、その文字列の長さが、 CHR $(0) は 
1、''〃は0とぃう根本的な違ぃがあります。 

実際に文字変数に代入して、メモリへの格納状態を見てみるとよくわかります。 



b 苯二 

Ok 


print he>K varptr, く a . 去）:）， hex ま •（ varp t「. く ht ) > 
3026 302 C 

0 k 


mon 

> ： DS0 20 

0020 0 0 0 ft 0 0 

s "a 

¥ 

k 

灰： 

X DCF 10 

C：F 10 46 00 4E 

* 


03 00 41 011 1A CF 03 0 0 42 00 1A OF 0A 


45 50 4F 3S 30 32 43 08 00 00 FF @8 00 


VARPTR 関数でストリングディスクリプタのアドレスを調べ、 mon モードでそこを見る 
と各々文字数が1、0であることがわかり、文字列格納先が同じ CF 1 A となっていて、そ 


この内容は00であるので、 CHR $(0) は、16進数00で格納されていて/"は、格納先アドレ 
スはあるがそこには文字列が存在しないことになります。 
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8-12.1 行は、256文字以上可能である/ 7 

マニュアルには、'' 1行は、行番号も含めて255文字以内である。" 
とありますが、正確には、次のようなことが言えます。 

①画面上で人力できる文字数は、行番号も含めて、最大254文字である 


確認するために、先ず、適-に255文字以上の行をつくって、 list してみてください 


180 ?" 1234567890 1234567390 1234567890 1234567890 1234567890 1234567890 1234567890 1234 


567390 1234567390 1234567890 1234567390 1234567890 1234567390 1234567390 1234547390 1234 


567390 12345673981234567390 1234567890 1234547890 1234567890 1234567890 1234567890 1234 
567390 1234567801234567890 1234567890 1234547890 1234547390 123456739 0 U 


list 108 


1 ist で表示される範囲（行番号も含めて 254 文字 ) 


100 PRINT 11 12345678901234567890123456789012345678901234567890 12345673901234567898 
1234567890 1234567890 12345678901234567890 12345478901234547890 1234567390 1234567390 
1234547390 1234567 B90 12345678901234567890 1234567890 12345678901234567390 1234567890 


123456789012345678 


Ok 


list して表示されたのは、 KEY 入力時の画面で254文字目までです。 

次に、 KEY 人力 時、、'?" と省略形を 用いずに'、 print " で人力して、同様に list すると、 

100 print" 12345678901234567890123456789012345478901234567890 12345678901234567890 
12345673901234567390123456789012345678901234567390123456789012345673901234567390 

1234567890123456789812345678981234567390123456789012345673901234567890 1234567390 

1234567390 1234156739 y 123454789912345678981234567390 1234567390 1234567398 H 

^— list で表示される範囲 （ 行番号も含めて 254 文字） 

1 1st 100 

108 PRINT ,i 1234567890 12345.57890 1234547890 1234567 S90 1234567890 1234567390 1234567890 
12345673901234567390123456789131234567890123456739012345678901234567390 1234567890 

12345673901234567890123456789012345678901234567390123456739012345673901234567390 

12345678901234 

Ok 


となり、今度も254文字までが受け入れられて表示されます。すなわち、省略形*?"を用い 
た時の方が、 list で表示される文字数は、多くなります。ところが、 list 後にその行へ力一 
ソルを移動して、 1 RET 1キーを押すと、254文字を越える部分は、削除されてしまいます。 

キー入カバッファは、 EC 96 〜 ED 93 番地に254バ•イト分だけあり、この容量により制限を 
受けているものと思われます。 


② list で表示される1行は、メモリ上で、リンクポインタも含めて255バイトまでで 
ある。 


前述の100行のメモリ上の内容をモニタモードで見てみましよつ 
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81*18 34 35 36 37 
3120 00 00 00 08 
8130 00 08 00 00 


32 33 34 
00 00 00 
00 00 00 


ここで、 811 C 番地を指しているリンクポインタを少し後方（例えば8130番地）へずらし 
て、その間を〇〜9の数字を表わすキャラクタコード （30 〜 39) で埋めて、どこまで list す 
るか見てみます。このとき 812 F 番地は、セパレータとして00を残しておき、8130、31は、プ 
ログラムの終わりを示すリンクポインタとして00、00を入れておきます。 

MS 8821 

8821 1C-3S 81-31 64- 
^SSIIB 

81 IB 00-35 08-36 00-37 00-38 00-39 

8120 90.-30 88-31 09-32 00.-33 88-34 80*-35 80-36 00-:37 

3123 00-33 80-39 80-30 80-31 80-32 08-33 08-34 @9- 

夫 

SD81 10,313 F ここから先を書き換えた。 

8118 34 35 36 37 38 3? 30 3132 33 34 35 36 37 33 3? 

S120 38 3! 32 33 34 35 36 37 38 39 36 3! 32 33 34 00 

3138 00 00 00 00 00 00 00 00 00 30 00 00 00 00 00 R0 


list 

100 PRINT 11 1234567898123454789012345478901234567890123456739012345678901234567890 
12345673901234547890123456789012345678901234567890123456789012345678901234547890 

12345673901234567390123456789012345678981234567398123456789012345678901234567890 
1234567890123456739 

0m 1-表示が増えた部分 

メモリを書き換える前よりも5文字多く表示され、メモリ上では、 811 F 番地までを表示 
していることになります。すなわち、リンクポインタの先頭番地を含め255バイト （8021 H 
+ FFH —1) を表示する訳です。 

ただし、最後の方に、中間言語があると、その KEYWORD の文字数により、255バイト 


1 1st 

100 PRINT 11 1234567890123456789012345678981234567898123456789812345678981234557890 
12345678901234567390123456789012345678981234567890123456739012345678981234567390 
12345678901234567890123456789012345678901234567898123454789012345678901234567390 
12345673901234 
OK 

mon 

8020,813 F 

8020 00 [1C 81] 64 00 9122 3132 33 34 35 36 37 38 39 
3030 30 31132 33 34 35 36 37 33 39 30 3132 33 34 35 

鬌 

_ — i 


10 0 
3 0 0 

0 0 0 
3 0 0 

9 . 0 0 

3 0 0 

8 0 0 
3 0 0 


0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 

0 0 0 
0 0 0 
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まで表示されない場合があります 




また、このようにして、 PRINT 文中の文字を 256 文字以上にした場合、実行して表示さ 
れるのは、最初から 256 を引いた残りの文字数のみです。 

この例では、メモリ上で 8027 〜 812E 番地まで 264 文字あり、実行しても M 2 3 4.5 6 
7 8 〃 としか表示されません。 


③メモリを直接操作し、 1 行を 256 バイト以上とすると、 256 バイト以降は、 list に 
は表示されないが、実行される。 


次の例でやってみましよう 


} ist 

100 CONSOLE0 ,25 ? 0 5 8: WIOTH80 ,25 :PRINT CHR$(12) ; 
i 10 PRINT 

关): H ■矢；■关 H 关 H が KEY WORD ヲ INPUT 9 テ 7 ゲ■サイ 料劣关 


关磁班磁 ■_ 

120 : PRINTTAB(35) : INPUTK$ : IFK$<> U ?99 ,! THENNEW 

130 PRINTCHR$(12) : LINE(8,0) -(15? ,39) ? PSET,B 
140 L0CATE35, ll:PRINT ll OK ? ! 11 
150 GOTO 140 
OK 


注） 120 行の始めの方のスペースは、 

110 行と結合したとき、： PRINTTAB 
…の前までに 255 バイト以上確保する 

ためのものです。 


このプログラムは、 120 行で、 KEYWORD''999" が入力されたら、 v OK !!〃 を画面中央 
に表示し、'、 999 "でなかったら、プログラムが消滅する （new される）という恐ろしい？プロ 
グラムです。しかし、 list してみれば、誰にでも簡単にバレてしまいます。 

そこで、 110 行と 120 行をつないで、 1 行を 256 バイト以上になるようにし、 120 行の肝心 
な部分が、 256 バイト以降にくるようにすれば、 list しても見えなくなるはずです。 


そのためには、 

① 120行のリンクポインタを指している110行のリンクポインタを130行のリンクポインタ 
の先頭ァドレスに変更する。 

② 110行と120行の間を、スペースコード （20 H ) などで埋める。（セパレータ、' 00" からマ 
ルチステートメントの区切り記号”： "（3 AH ) の前まで） 


という操作が必要です 


〇 


上記プログラムのメモリ内容を見て実際にやってみましよう 

n；on 

3020,315 F 


〇 


i 

Ok 


3020 

00 

40 

30 

.£4 

00 

?F 

11 

2C 

8F 

1? 

2C 

il 

2C 

11 

3A 

3030 

0F 

5£i 

2C 

8F 

i? 

3A 

91 

20 

FF 

96 

28 

0F 

0C 

29 

3B 

3848 

38 

Si I 

6E 

80 

9i 

22 

2A 

2A 

2A 

2A 

2A 

2A 

2A 

2A 

2A 

響 

會 

i 


_ -i ^ 

\ 小 

11^ 

/-» / 








• 



liui ] ンノリ y y tts / グ 




— 1 9 〇 ^/7 ) 11 V ク +。ノ 、メ々 

• 









i 

i :' 

一 iLiJi ノノ ノノ rj 、 ノ 1 x y 

8130 

2A 

2A 

2A 

2A 

2A 

2A 

22 

80 

57 

Si 1 

78 

00 

20 

20 

20 

8148 

9i 

D? 

0F 

23 

2? 

3A 

35 

4B 

24 

3A 

3B 

4B 

24 

F2 

F8 

3150 

39 

3? 

39 

22 

D8 

94 

08 

76 

31’ 

82 

00 

91 

FF 

96 

28 


130 行のリ ン クポイ ンタ 


A0 

00 

2A 


3A 

22 

6F 
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先ず、110行のリンクポインタ（8040、41番地）に、130行のリンクポインタの先頭アドレ 
ス （8157 H ) を書き込みます。 


mon 

■ 040 

8040 33-57 Si-816E- 


次に、110行と、120行の間をスペースコード （20 H ) などで埋めます。 

SS 8137 
8137 00.-20 

3138 57-28 81-28 78-20 00-20 20- 

0K 

Basic モードに戻って、 list してみると、 

1 1st 

108 CONSOLE 0 ? 25 ? 0 ? 0: WIDTH 30 ? 25 ;PRINT CHR $(12) ; 

110 ギデ X 夫关关关 

关料^关关关关关:〇只关关关关关 KEY WORD ヲ INPUT z ^ f?r V 4 
关料が が#料 が)^ 料が 关 

磁关磁班， 1 

130 PRINTCHR $<12 ) : LINE く 0,0) ベ 159,3?). PSET.B 
140 L 0 CATE 35, 11 SPRINT H 0 K 1 ! Jl 
150 6010140 
Ok 


120行は表示されません。 

では、実行してみましょう。どうでしょう/隠された部分も、ちゃんと実行されている 
ことがわかります。 

もちろん、テープやディスクに SAVE しても、その内容は、保存されて、 LOAD , RUN 
可能です。 

1つ注意しなければならないことは、この110行に力ーソルを移動させ、 r^ET | キーを押 
すと、255文字以降は、削除されてしまうことです。 


8-13.数値は、メモリ内でどう表現されているか 

数値の型には、次の3つがあります。 

〔図表 8 H 〕 


数値の型 

■ 

数値部分使用メモリ数 

記号 

整数 型 

— 32768 〜32767 

の整数 

2ハ'イト 

% 

実数型 

単精度型 

土 1.70141 X 10 36 
-± 2. 93874 X 10- 38 

4八イト（有効数字6桁） 

/( 省略可） 

倍精度型 

8バイト（有効数字16桁〉 
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ftih 3039 


10 進数に直すと、12 3 4 5となります 


〇 


数値変数名の後に％/#をつけて区別します。何もつけない場合は、単精度型として処 
理されます。（ただし型宣言が実行されていない場合に限ります。） 

⑴整数型 . 2バイト 


7 FFF ……32767 

7 FFE ••…3 2 7 6 6 

_ 

* 

■ 

0 0 01 1 

0 0 0 0 0 

P T? TT TT — I 

8001-32767 
8000 — 32768 


n = &Hb 2 b j b 2 = n¥256 

< - > 

==(b 2 )^256+t>i b, = nmod 256 

(例） 

abX=12345 
Ok 

print hexl(varptr く abX)) 

3026- 

Ok VARPTR は、数値部分を指しています。 

mon 

XD80 2B X 

8020 00 00 00 |02]42]4lf39f30|FF FF FF FF FF FF FF FF 



5 

t 4 
n 3 
i 2 
r i k 
p □ 
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(2) 実数型 

実数型は、単精度型、倍精度型とも、浮動小数点表記法により表現されています。 
単精度変数を例にして、説明します。 


〔図表 8-3 〕 


蛮数の型変数名数値部分 (4 バイト） 


04 


倍精度は08 


b, 


^2 


t>4 


第 2 文字第1文字仮！^部 


指数部 


下 

中 

上！1 

b 4 




* 


23 22 21201918 171615141312II 10 9 8 76543210 


の23ビットで小数部を表わす.。 


符号(仮数部) 
0…正の数 
1…負の数 


m 


の間にあるとみなす。 


7 6 5 4 3 


0 


81 H を0とする指数 


FF 

FE 


12 6 
12 5 


★ 

8 2 

1 


81 

0 

1桁上（第23ビット）に 
—1があり、小数点がそ 

8 0 

7 F 
* 

- 1 

- 2 
• 


2 

1 


12 7 
12 8 


0 


米 


来0のときは、仮数部の 
いかんにかかわらず0 
来この換算は 、 &HDD 
- & H 81 によりできます。 


数値 n は、 


n = 土 m X 2 r 

^——仮数部最上位ビットが0のとき+、1のとき一 

で表わされます。 
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具体的に次の例で見てみましよう 


c 123 . 456 
OK 

print h 0 x $( v ar p t r(c d )) 

30 26 
Ok 

mon 

关 DS020 _ 

S020 0 0 0 0 0 0 0 4 44 43 7S E? 76 87 FF FF FF FF FF FF 

关 DC | 

1 ——指数部 87 H -^6(87 H -81 H ) 


0 

1110110 

111010 01 

011110 0 0 


+ 1.11101101110100101111000 X 2 6 

2 6 ということは、仮数部の小数点を右へ 6 桁移動することを意味します。したがつて 
書き換えると、 

7 B 1 D 2_ F 

nrriin 〇 1 n. ofiiii 1 〇 1110 〇 1 oim~ii 

14 桁 

となります n これは、計算すると、 


7 BH + 1 D 2 FH / 2 14 =123.456 

となり、最初の代入数値にほぼ等しいことがわかります。 

倍精度の場合、仮数部が、7バイトになり有効数字が16桁となるだけです。 
表現できる数値は、絶対値が 


1.111 . 11 X 2 (FFH - 81H ) = 1 .70141 X 10 38 

1.000 .00 X 2 (1 " 81H) #2.93874 X 10 一 39 

の範囲となります。 
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8-14.VARPTR について 


VARPTR 関数には、いくつもの有用な使い方がありますが、その中から 2 つ紹介しまし 
ょラ。 

1.画面を文字列変数に 

画面上に表示されている文字を文字列変数内にとり込む方法です。数字を読みたい時は 
一度文字列として読み込んで、 VAL 関数によって数に変換します。また、この方法は 80 文 
字、 72 文字モードの時にしか使えません。 

基本的には、文字列変数のディスクリプタが、画面上を指すようにするわけです。下の 
プログラムを見て 下さい。 


list 

10 WIDTH80 SPRINT CHR 丰く 12> ; "ABCDEFG" 
20 A*= H M sP==^ARPTR(A^) 

30 POKE P,6:POKE P+1,0 sPOKE P+2,^HF3 
40 A*=A*t+" H : PR I NT A 1 * 

Ok 


10 行では画面の左上に ABCDEFG と表示しています。20行で、 A $ という、画面上の文字 
を取り込む変数にヌルストリングを代入し、ディスクリプタを作り、そのアドレスを変数 
尸にもつてきます。（ここで A $ に代入する文字列は何でも構いません） 


30行が本命です。まず 、 POKE P ，6 によって取り込みたい文字列の長さが6文字という 


ことを指定します。ここでは A 〜 F ということです。そうして 、 P + l 、 P +2の2バイト 
に、文字列の先頭のキャラクタの実アドレスを書き込みます。画面の左上すみのアドレス 

勺》 

は F 300(72 文字モードのときは F 304) ですから 、 POKE P +1，0 ;POKE P +2 ，&HF 3とな 

ります。 


A $ の VARPTR 


文字数 

アドレス下位 

アドレス上位 

6 

▲ 

00 

F 3 



ABCDEFG 


6文字 


圆面 


さて、このままでは画面から文字が消去されると、 A $ の内容も失なわれてしまいます。 
そこで、行40で、 A $ = A $+、 W / と行なうことにより、、' ABCDEF " を文字領域に コピーして 
おきます。こうすると '' ABCDEF 〃は 完全に A $ のものになり、画面には依存しなくなります。 
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8-15. VARPTR で¥256、 mod 256 を 


2.アドレスの上位と下位を別々に 

たとえば今の、画面を文字列変数にという場合、ディスクリプタに文字列のアドレスを 
POKE しました。例ではアドレスが F 300 と決まってましたからよいのですが、これが（ア 
ドレスが）変数にはいっていた場合はどうでしょう。 POKE P +1 , AD mod 256: POKE P 
+ 2, AD ¥ 256 とやりたいところですね。（変数 AD にアドレスが入っているとします）と 
ころがそうはいきません。 

もし AD が整数型だったとしましょう。このとき、 VRAM のアドレスなど8000 〜 FF 
FF 1S は負の数で表現されます。（例： PRINT & HF 300) したがって 、 AD mod 256 、 AD 
¥256は AD の下位バイト、上位バイトを表わしません。 

それでは、というので AD を単整度にします。そうすれば F 300 is も正の数で表わせま 
す。ところが、正の数にすると、32767を超えてしまい、 mod や¥が使えなくなります。 
そこでしかたなく、 INT などを使って、誤差を気にしながら（実際には誤差は出ませんが、 
やはり気になります） mod や¥の代わりをする、ということになります。 

それでは VARPTR を使った方法とは何でしょうか。その前になぜ256で割った商とか 
余りとかを必要としたのでしょうか。それはつまりアドレスの上位バイトと下位バイトの 
値が別々に欲しかったからです。それならその値を直接もらおうではありませんか/ 

変数 AD を整数型とします。 AD は2バイトで表現されており、上位バイト•下位バイト 
があります。つまりこれらの > [直をそのままもらえばよいわけです。 


A $ のディスクリプタ 整数型変数 A D 



BASIC で書くと次のようになります 


POKE P +1 、 PEEK (VARPTR ( AD ))： POKE P + 2 、 PEEK (VARPT R ( AD ) +1) 


8-16. AUT 〇のときの似だ行の作り方 


AUTO を使わない時は同じような行が出てきた場合、カーソルを移動して、行番号を変 
え、変更力所のみ変更してリターンキーを押すと、それで新しい行ができます。ところが 
AUTO を使用している場合には同じことをやると、行番号までもがテキストの—部として 
とり込まれます。これを解決するには行番号(変更を受ける行の）を消してしまえばよいの 
です。考えてみればあたり前のことなのですが、意外と知られていないようなので一言。 
なお老婆心からつけ加えておきますと、 AUTO から抜け出さずに以前入力した行をエディ 
ットすることは不可能です。 
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8-17. LIST や DELETE の後に 〔 ,• 〕 をつけると〒 


LIST や DELETE には、一般に次の使い方があります。 


150 


150 


150 


LIST 


注） * delete の場合は、〔リスト〕を〔削除〕と置き換えてください。 

• delete の場合は、存在しない行番号を指定すると 、 Illegal function 
call のエラーとなります。 


最初の行から最後の行までリストする。 
( DELETE には使えません J 


LIST 150指定した行のみをリストする 


j LIST , 150最初から指定した行までをリストする。 


LIST 150,指定した行から最後の行までリストする 
( DELETE には使えません。） 



LIST 150,300指定した範囲をリストする。 



LIST •エラーを起こした行をリストする。 


ここで、最後の LIST . の〔.〕は、 
(1) エラーを 起こした行番号 


⑵ LIST コマンドを 実行中、表示して いる 最後の行番号。途中で break (ストップキーを 
押して中断）したらその行番号 

(3) 表示中のリストに対し、修正またはその他の目的でカーソルを移動して fRETl キー 


を押した行の番号 


(4) AUTO 文で現在作成中の行番号 


テキスト作成中 RETURN キーを押したと 


きのその行番号 （ AUTO 文による作成中も 


含む) 


を意味しています。 


この行番号は、 EF 93, 94 番地に 16 進数に変換して格納されます。 
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mon 

X DEF90 一 _ _ _ _ 

EF90 CD lAA 001132 001119 82| 00 00 00 58 81178 00] |56 81] 

X l 


プログラム中断後、 
実行再開すべきア 
ドレスを示す。 


プログラム実行中 「 STOP 1 
キー又は、 STOP コマンドに 
より中断した行番号 

— エラーを発生した行番号のメモり上のアドレ X 8219 番地から 
170行が格納されていることを意味します。 


し〔•〕に相当する行番号 

00 .32 を10進数直すと、この例では、50行である 

V ことがわかります。 


し前にエラーの発生した行番号 

OOvAA を10進数に直すと170となり、170行でエラーが発生したことを示します。 
エラーが 発生した時点では、次の EF 93 f 94番地に も 同じ行 番号が人り ます。 


そして、〔_〕は LIST ， LLIST , DELETE , AUTO のコマンドで使うことができます。次に 


その例を示します 


〇 


で150行とは、エラーが起こった行、リストを中断した行など前述の⑴〜⑷に相当す 


る行のことです。 


注） DELETE の場合は、〔リスト〕を〔削除〕と置き換えてください 


〇 



LIST ，. 



LIST ■ ， 



LIST 100” 



LIST •，300 
AUTO . 


最初の行から 150 行までリストする。 


150行から最終行までリストする。 
( DELETE には使えません） 

100行から150行までリストする。 


150行から300行までリストする。 

150行から AUTO コマンドが実行されます 


LIST コマンドで最終行までリスト後、または最終行より大きい行番号に適当なステート 
メントをキー入力した後、 DELETE 400，.を実行すると、400行から最終行まで削除するこ 

とができます。 
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8-18. DATA 文のランダムアクセス方法 


RESTORE 文を 使わずに、 好きなところからの DATA を READ する方法に ついて、 1 つ 
の例を示します。 

1. 区切りとなる DATA 文の前に、文字変数の代入文を置く。(代入する文字列は各々、 
何であってもかまいません。） 

2. VARPTR により、その文字変数の代入文の位置を調べ READ 文のポインタ （EFA 
6, A 7) に、その文字列の終わり（ I ?〕の次）のアドレスを書込む。 

上記方法によるプロダラム例と実行例を次に示します。 

a 〜 e を入力すると、そのアルファベットを頭文字とする KEYWORD が出力されるとい 
うプログラム例です。 


100 
116 
120 
130 
140 
150 
160 
178 
180 
190 
200 
210 
220 
230 
240 
250 
268 


DIM A*<10) : GOSUE190 

INPUT 11 Character <a-e) (i ; : IF C^< ,f a n OR C^> M e M THEN i 10 

K=A3C<Ct) 1 


AH=0 : AL=0 : AD=MARPTRCA$(K)>+1 : AH^PEEK(AD+1) : AL=PEEK(AD)+LEN<A^<K)> + 
IF AL>255 THEN AL=AL-256:AH=AH+1 


POKE 6« ： HEFA6,AL:POKE SkHEFA7,AH 

READ NjFOR 1=0 TO N-i : READ K 多 ： PRINT 9 : NEXT 

PRINT:PRINT:GOTO 110 

，矢^关关关关 data mm 


A$(0) = 1, ^ IJ : DATA 
1)= ，，矢 ，* : DATA 
A 车 （ 2> = T : DATA 

DATA 

A 秦 <3) = T : DATA 

DATA 

A*<4> = Jf X ,t : DATA 
RETURN 


6,AND,ABS,ATM,ASC,AUTO s ATTR$ 

2,BCD*,8EEP 

17, CONSOLE,CLOSE ， CONT ， CLEAR,CLOAD ， CSAME 5 CSRLIN ， CINT 
CSNG ， CD8L ， CUI,CMS,C リ D,COS ， CHR ， ,CHD,COLOR 
13, DATA ， DIM, DEFSTR f DEFIN 了 , DEFSNG ^DEFDBL, DSKC3$ ， DEF 
DELETE,DSKI$,DSKF,DEC,DATE$ 

9 ， END,ELSE,ERASE,ERROR,ERL ， ERR ， EXP ， EOF ， EQ リ 


1 


run 

Character 1 

Ca-0> ? b 



BCD$ 

BEEP 



Character ， 

:a _ e) ? e 



END 

ERR 

ELSE 

EXF 

ERASE 

EOF 

ERROR 
EQ リ 

Chsrsc tsp (? 及 



AND 

ATTR 弟 

ABS 

ATN 

ASC 


ERL 


AUTO 


Charac ter (. a - e ) ? 
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考處すべき点 

1 . DATA 文の前におく文字変数の代入文はプログラムの始めに実行しておく。 

そうしないと、ストリングデイスクリプタ中に、アドレスが入らない。 

もちろんプログラム中で他の文字列を代入することもいけません。 

2. 文字列のアドレスを取込む AL ， AH の単純変数の領域は、 VARPTR 関数を使用す 
る前に設定しておく。 （ AL =0 ，AH = 0 などとして） 

VARPTR で読み込んだアドレスが、 AH ， AL の単純変数の追加で、配列変数領域が 
後方にずれて、正しいポインタを指さなくなるからです。 

READ 文ポインタは、 EFA 6, A 7 番地にあり、初期値は、802 0 H (16 K システムでは C 
020) で、 RESTORE 文で，、例えば、 RESTORE 210 とすると、210行のリンクポインタの直 

前を指します。 

更に 、 READ n を実行すると、 DATA 文中の17が n に代入され、 READ 文のポインタは、 
次のデータ （ CONSOLE ) との区切り記号し〕のアドレスを指します。 


mon ——^ READ 文ボインタ （ EFA 6, A 7) 

关 D 0: A 0 1 

EFA 0 AF 82 AF 82 AF 82 | 20 301 04 04 04 04 04 84 04 04 

关 「 

Ok 


restorerly 
Ok 


mon 

XDEFA0 _I_ 

EFA0 AF S2 AF 82 AF 82 80 SI 04 04 0 4 0 4 94 04 04 04 

关 / ^ 

^03130,819 巳上ンクポインタ，番号 210 

8130 [80][C5 - 81UD2 00J 4124 2813 2? F1 22 2A 22 3A 34 
8190 20 3137 2C 43 4F 4E 53 4F 4C ： 45 2C 43 4C 4F 53 

失 


RESTORE 210 を実?亍すると 、 READ 

文のボインタが、210行のリンクポイン 
夕の直前を指します。 


read n : prin t n 
17 

ok 

mon 


READ 文の実行で READ 文のポインタ 
は、次のデータとの区切り記号である 
し〕のアドレスを指します。 


关 DEFA 0 

EFA 0 AF 82 B 6 32 B 6 82 1?3 81] 84 04 04 04 04 04 04 04 

关 


0 K 
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また、 VARPTR ( A $ ⑵)は、配列変数領域中のストリングディスクリプタ（文字数とポ 
インタがあるところ）を指していて、そのポインタが、テキスト中の文字列を指していて 
その文字列の終わったところから DATA 文が始まっているので、そこのアドレスを READ 
文のポインタである EFA 6, A 7 番地に格納してやれば良いわけです。 

これで目的とする DATA 文のところにある文字変数を指定するだけで、即座にデータが 
読めます。 



8-19 .動的な RESTORE 文 

たくさんの DATA 文があって、たとえばある変数の値によって、別の DATA 文から READ 

したいということがよくあります。 

そのための方法をいくつか紹介しましょう。 

その1:読み飛ばす 

必要なデータが出てくるまでデータを空読みし続けます。データ文中の i 番目の要素 
が必要な時は次のようにします。 

FOR J =1 TO I ： READ DT : NEXT 

最も一般的な方法ですが、実行時間がかかるのが欠点です。 

その2 : RES 丁〇 RE 文に〇 N 〜 GOSUB で飛ばす 

RESTORE 文をそれぞれの DATA に対してつけ、 ON 〜 GOSUB によって、必要な行 


に飛ばします。 






FOR I=&cHFFF0 TO &c*HFFF5 

READ 0¢ s POKE I ,UAL< : NEXT 

DATA CD,Ei,56,C3, 00,43 

DEFUSR=&cHFFF0 


このプログラムを実行した後は 、 A = USR (行番号）で RESTORE されます。行番号の 
指定に変数はもちろん、式も使用できるようになります。ただし、 RENUM を行って、 
行番号が変わってしまった場合には、それに応じて式も変えなくてはなりません。 


8-20. ERASE 利用法 


DIM によって配列をとると、各要素の値は0になっています。酉己列をいろいろ使用して 
いろいろな値が入りました。さて、この配列をクリアしたいのですがどうしますか？この 
ような時には一度配列を ERASE してしまいます。そしてまた DIM するのです。こうすれ 
ば簡単に配列の中身をクリアすることができます。 

うすれば FOR - NEXT ループでクリアするよりも、速くて、バイト数も少なくてすみ 
ます。次に DIMA ( IOOO ) をクリアするサンプルプログラムを示します。 


list 

10 TIME* 


•• 00 : 00 : 00 " 


20 DIM A (1000) 

30 ERASE A:DIM A (1000) 
60 PRINT TIME* 

Ok 

run 

00 s 00i00 
Ok 


list 

10 TIME*:"00:00:00 
20 DIM A (1000) 

30 FOR 1=0 TO1 000 
40 A(I)=0 
50 NEXT 

60 PRINT TIME 东 

Ok 

run 

00:00:04 

Ok 


100 ON I 60SUB 200,210,230 :READ DT 
200 RESTORE 200: RETURN:DATA 1 
218 RESTORE 210sRETURNsDATA 2 
230 RESTORE 220 :RETURNsDATA 3 

ON 〜 GOSUB と RESTORE 〈行番号〉を組み合わせたうまいやり方ですが、メモリが多 
く必要な上に、データ数が多くなると見にくいプログラムになってしまいます。 

その3: RQM 中のルーチンを利用する。 

ROM 中のルーチンを利用するということは、機械語を使用することです。機械語とい 
ってもほんの数バイトです。ここでは使用法のみ述べておきます。 


00 
0 1 


0 0 
2 3 
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8-21 .サブルーチンに CLEAR 文はダメ / 

CLEAR 文の機能には、次の2つがあります。 

( l.)CLEAR 

すべての数値変数->0 

a 文字変数-…ヌルストリング 



CLEAR 文の実行により、すべての娈数はクリアされ、スタック領域(機械語の push 命令 
によりレジスタの内容がここに一時保管され、 POP 命令により再び取り出される。）も初 
期化されるので、 GOSUB 文でサブルーチンに飛んでいつて、そこで CLEAR 文が実行され 
ると、戻る場所がなくなり、エラーとなります。 





11st 

110 GOSUB 1000 
120 PRINT H FGHIJ" 

130 END 

1000 x ■ Subroutine ■ 
10 10 CLEAR 1000，& cHBFFF 
1020 PRINT ^ABCDE 11 ; 

1038 RETURN 
Ok 


? ist 

100 CLEAR 1000,&HBFFF 
110 GOSUB 1000 
120 PRINT"FGHIJ" 



130 END 

1800 x ■ Subroutine ■ 
1020 PRINT "ABCDE"; 

1030 RETURN 
Ok 


run 

ABCDE 

RETURN without GOSUB in 1030 
Ok 


run 

ABCDEFGHIJ 
Ok 


CLEAR 文は、プログラムの 1 番最初で、実行するようにしましよう 


8-22 .円 X と INT の違いは 


〔図表 8-5 〕 



FlX(x) INT(x) 

機能 

X の小数点以下を切捨 i X を越えない最大の螯数 

XS 0 

のとき 

? _ S 

_ L_ 

INT(x) 

FIX(x) = INT(x) 

X< 0 

のとき 

„ n X 

つ 3 _1 q 

1 0 
_- 

1 1 
INT(x) FIX( 

x が整数でないとき FIX (x) 
x が整数のとき FIX ( x) 

1 

X ) 

= INT(x) + 1 
-INT(x) 


X が正の数のときは、同じ値となるが、 X が負の数で小数部分があると異つた値となり 
ます。 
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8-23 .数値と文字列の変換 


print chr $< も hb 1 ) 
7 


print str ^< 12.3) 

12,3 

print str 4096) 

40 96 

print val < 11 12.3 E - iZ ") 

1,23E-i1 

print val < M 12/31” 

12 

春数値以外の文字が出てくると、そ 
の前までを数値化します。 


print chr ^<65) 5 chri (240) 
A X 


print asc < く"笨月日 1 *) 

72 242 


アスキーコード （10 進） キャラクタ（文字) 



CHR$() 

« - ^ 

* 

0 

• 

# 

] 

3 2 

f 


! ^ 

• 

■p 

6 5 

A 

• 

''A" 

2 4 7 


'' 秒〃 

2 5 5 

N 

ASC () 

_ 

_ 

* 


文字列が2文字以上のとき、先頭のキャラクタのみアスキ 
ーコードに変換されます。 


to 進数値(実数） 数値文字列 


123.45 

STR$ () 

==^> 

V 

し 123.45 〃 

4096 

jt 


''u 409 6" 

1.23E-11 

<^= l 

'し] 

L23E-11" 


VALO 




数値を文字列に変換すると、正の数の場合、頭にスペース 
が 1 文字入り、負の数の場合 が一 〃が 入ります。 


〔図表8-6〕 


10進数値(整数) 


HEX$ () 


16進数(文字列) 


3 2 7 6 7 


0 

-1 


3 2 7 6 8 



7 FFF 



&H 



0 

FFFF 
8 0 0 0 


VALT & H " + A $) 


16進数が文字変数の場合 



print hex ^ < 100,8) 

print ^ hea 09 ,^hff 
-5632 255 

a 加 " la00” 

print val( !l v i 
6656 

• 32768 〜 65535 を HEX $ で 16 進に変 
換すると、 8000 〜 FFFF になります 
小数点以下は、切り捨てられます。 


10進数値(整数) 


0CT$ () 


8進数(文字列) 





&0 



7 7 7 7 7 

( 

0 

1 7 7 7 7 7 


10 0 0 0 0 


print oct 李 <7080) ,oct 多く 一 1) 
15530 177777 

print む〇10000 f tco 100 

4 v 394 64 


VALr&0"+ A $) 


8進数が文字変数の場合 



• 32768〜65535を 0 CT $ で8進数に 
変換すると、100000〜177777にな 

ります。 

• 小数点以下は、切り捨てられます。 


0 


C 

S 

a 

■^ 

X 

0 

h 


r 0 
P 3 
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8-24. DEFINT で定義されだ変数は？ 

変数の型には次の4種類があり、変数名の後にそれぞれ％、/、#、$などの記号をつけて 
お互いに区別します。 


〔図表8-7〕 


型名 

記号 

定義文 


使用メモリ 

整数型 

% 

DEFINT 

—32768 〜 32767 

数値部 2 バイト 

単精度型 

/ 

DEFSNG 

有効数字 6 桁 

// 4 バイト 

倍精度型 

# 

DEFDB し 

有効数字 16 桁 

// 8ハ M 卜 

文字型 

$ 

DEFSTR 

文字列 255 文字まで 

ディスクリプタ 3 バイト 


変数名の後に何もつけていない変数は、 N - BASIC 起動時は、自動的に、単精度変数と 
なっています。したがって、例えば A と A /、 C 3 と C 3/ など/をつけた変数と、つけな 
い変数とは、同じものなのです。 

しかし、変数の 型 定義文 （DEF …） を実行すると、以降その範囲の アルファべ ットを頭文 
字とするすべての変数は、その後に何もつけなくても、定義した型の変数とみなされます< 
例えば 、 DEFSTR A - E とすると、 A ， BF , C 1， DY ， E などの変数は、すべて文字変数と 
いうことになり、各々 A $, BF $， a $， DY $， E $ t ， tCSO ます。 

言いかえると、 DEFINT ， DEFSNG , DEFDBL ， DEFSTR は、後に型記号（％/#$)の 
つかない変数を、どの型の変数にするかを定義する文だと言うことになります。 

123: a !=123 • 456: a#=123456. 7890 123456: a$= ,, ABCDE H 
Ok 

print a 
123.456 
Ok 

def i n t ai sprint a 
123 
OK 

defsng arprint a 
123.456 
Ok 

defdbl a s prin t a 
123456 .78? 0123456 
Ok 

de-f str at sprint a 

ABCDE 

Ok 
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また、変数 A を文字変数に定義しているとき、単精度変数の A を表示したいときは、 


Print A ! 

123.456 

とすれば良いのです。 

同じ数値でも、倍精度 （8 バイト）よりは、単精度 （4 バイト）、更には、整数 （2 バイト） 
の方が、使用メモリ数が、少ないので、メモリ効率が良く、実行速度も速くなります。 
したがって、整数を多く取り扱うプログラムなどでは、 

DEFINT A-Z 

として、すべての変数を整数定義しておくと良いでしょう。 







(4) MID $( A $, n ) 


n 文字目以降を取出す 


A $='' ABCDEFGH 〃 


DEFGH" 


例？ MID $( A $, 4 ) 
DEFGH 


(5) MID $( A $, n , m ) = B $. n 文字目から m 文字を B $ の頭から 

m 文字と入れ替える。 


n 文字目 
* m 文字 


r 


A$=''ABC DEFGH 


I 


入れ替える 






B$= NV 1 2 3 4 5 6 


し 


文字 


例 二'' 12 3 4 5 6" 
MID $( A $,5,3 ) - B $ 

? A $ 

ABCD 12 3 H 


A $ 二'' ABCDEFGH " 

I_I 

i 」 2 文字のみ入れ替える 


例 B $=''12" 
MID $( A $,5,3) = B $ 
? A $ 


B $=''12" ABCDl 2 GH 


n 文字目以降を B $ の頭から 
(6) MID $( A $, n ) = B $. A $ の文字列長さを越えない 

n 文字 s 範囲で入れ替える。 

1 

A$=''ABC DEFGH " 

__, 例 B $='、 1 2 3 4 5 6 

pJ - , MID $( A $，5 ) 二: B $ 

B $='' 1 2 3 4 5 6" ? A $ 


A $= VX ABCDEFGH // 


ABCD 12 3 4 






例 B $=''12" 
MID $( A $，5 )= B $ 
ABCD 12 GH 






A $ 中に B $ が何文字目から 
存在するかを調べる。 


⑺ INSTR ( A $， B $)-, 

n 文字目 

i 

A$= V VABCDEFGH 


B $=、' DE " 

A $=" ABCDEFGH ,/ 

二 、、 X Y " 


例 B $ 二'、 DE " 

PRINT INSTR ( A $, B $) 
4 

例 B $='' XY " 

PRINT INSTR ( A $, B $) 


例 1.IF INSTR( A$,B$) THEN PRINT ''アリ" ELSE PRINT '、 ナシ 


一一 > ないとき INSTR(A$,B$)=0 で偽となり 
v ナシ 〃と PRINT される。 

例 2. IF INSTR(A$,B$) = 4THEN. 

意味—もし、文字列 B $ が A $ の4文字目から存在すれば… 


(8 )LEN ( A $). 文字列の長さを調べる 


A $ =、' A B C D E F G H " 例 PRINT LEN ( A $) 




文字数を調べる 


j 
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N - BASIC インタプリター覧表 


1 ァドレス 

項目名 

機 能 

備 # | 

0 0 0 0 

コ ー ルドスタート 

RESET ボタンと同じ 


0 0 0 8 

ホットスタート 

STOP キーを押しながらの RESET と同じ 


0 0 18 

1文字出力 

EB 49 に出力機番、 ACC に出カコードをセッ 
卜し、 CALL する。または RST 18 H 。 

出力機番 -- EB 49 

0 0 CB 

拡張システム 
チ X ック 

拡張システム （ DISK など）があるとき 、 NOT 
ZERO にして戻る。 


0 0 D 2 

DISK 

Initialize 

DISK の電源を切ったとき 、 HOT RESET を 
した時など、ここに JP すると . DISK - BASIC 
が起動する。 


0 2 5 7 

1文字画面表示 

ACC に出力する文字コードを入れて CALL 
すると、対応するキャラクタを表示する。 
カーソルは、次へ進む。 

表示位置 X +1 ： EA 6 4 

Y + 1 : E A 6 3 

0 2 D 7 

1文字画面表示 

H に X 座標 L に Y 座標を人れて CALL する。 


0 3 A 9 

カーソル移動 

^1，しに乂 +1，丫 +1を人れて匸八し乙。 


0 3 D 9 

VRTC チェック 

CRT がバーティカルリトレースになるまで待 

入カポート （40 H ) 第5ビッ 
卜 VRTC 

0 3 F 3 

力ーソルアドレス 

! 

H に X 座標、 L に Y 座標を入れて CALL する。1 
H L レジスタに対応する VRAM アドレスが 
入って民る。 


0 4 5 1 

ライン消去 

D E レジスタに消去する行の先頭アドレスを 
入れて CALL する。 

第0行を消去する例 … LD DE ， F 300 H 

CALL 0451 H 


0 4 5 A 

画面クリア 

CALL 045 AH 


卜 

アトリビュート 

H に X 座標、 L に Y 座標、 ACC にアトリビ 
ュ—トコードを入れて CALL すると、アトリ 
ビュートがセットされる a (ただし、該当座標 

1 の1キャラクタのみ） 


0 6 6 4 

;アドレスサーチ 

ACC に画面の行ナン八—を人れて CALL す 
ると、 DE にその行の頭のアドレスを人れて戻 
る。 （ HL は破壊される） 


卜 

PSET 

HL レジスタにデータアドレスをセットし、 

1 CALL する。 

例 、 PSET (37,20,2)をしたいとき、データ 
は、28,33,37,2 C ， 32,30,2 C ，32, 29,00 

1 

ヒ 

PRESET 

HL レジスタにデータアドレスをセットし、 

CALL する。（データは、 PSET の場合と同様 
にする。） 
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I アドレス 

項目名 

0 7 9 2 

LOCATE 

0 7 C 9 

ファンクションキ 
；ーディスプレイ 

0 8 4 3 

WIDTH 


CONSOLE 

卜 

CONSOLE 
& WIDTH 

0 9 3 0 

WIDTH 

0 9 3 A 

WIDTH 

0 9 5 1 

COLOR 

卜 

WIDTH 

(横方向） 

0 9 D 7 

WIDTH 

(縦方向） 

0 9 F 6 

DMA ON (25 行） 

0 A 5 E 

DMA ON (20 行） 

0 B 2 E 

ファンクションキ 

-OFF 

0 B 9 2 

グラフィック 

— カーソル 


能 


を表示 


ACC に00または05を入れて CALL すると、 
00 ... 1〜5 
05…6〜10 

この ACC に入れる数値+1から5つを表示 
する。 


HL レジスタにデータアドレスをセットし、 

CALL する。 

例、 WIDTH 40,25をしたいとき、データは 

34,30,2 C ，32, 35,00 

HL レジスタにデータアドレスをセットし、 

CALL する。 

例、 CONSOLEO ,25, 0，1をしたいとき、 

データは、 

30,20,32,35,2 C ， 30,2 C ， 31，00 

BC レジスタに FUNCTION KEY 表示スイッ 
チ、カラ—/白黒フラグをセットして CALL 
すると、ワークエリアに従ってセットされる r 


EA 62 に行数、 EA 65に1行文字数を人れて 
CALL する。 

B レジスタに1行文字数、 C レジスタに行数 
をセットして CALL する。 

HL レジスタにデータアドレスをセットして 

CALL する^ 

例、 COLOR 3,32，1の場合、データは、 
33,2 C , 33,32,2 C ， 31，00 

ACC に1行の文字数をセットして CALL する 
40文字…… ACC —2 SH 
80文字…… ACC —50 H 

ACC に行数をセットして CALL する。 

20行…… ACC —14 H 
25行…… ACC —19 H 

DMA を ON にして戻る。 （ 25行になる） 

DMA を ON にして戻る。 （20 行になる） 

ファンクションキーの表示を消します。 
スクロール 範囲は、元のままです。 

( H ， L ) のグラフイック座標をカーソル座標に 
直す。 


備 


考 


力ーソルスイッチ EA 5 F 


F.KEY 表示方法 … EA5C 

スクロ ー ルの長さ 一 1… E A 5 D 
スクロール開始行 +1… EA 5 E 
カーソルスイッ チ … EA 5 F 
F • KEY 表示スイッ チ … E A 6 0 
々ラー / 白黒， -.E A 61 
行 数 … EA62 

々ー ソル Y + 1… EA6 3 
力ーソル X +1… EA64 
1 行文字数 … EA6 5 


0 
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0 BD 2 

0 BE 2 

0 BF 3 

0 C 2 E 

OC 3 E 

0 C 4 9 

OCF 1 


OD 14 

OD 41 
0 D 5 D 
0 D 6 0 

ODAl 
0 DB 8 
OF 7 5 

0 F 7 B 

OFAC 

10 E 5 

117 C 

12 4 A 

13 4 3 


力ーソル消去 

力ーソル表示 

カセット入力 

セット 

MOTOR OFF 

MOTOR ON 

カセット出力 

セット 

ストッブ キー 

チェック 


MOTOR OFF 


BEEP 

MON 

プリンタへの 

1文字出力 

MOTOR 

TERM 

1文字人力 

( WAIT あり） 

KEY 入力 

チェック 


1文字人力 
( WAIT なし) 


キ ー ボ ー ド人力 

ASCII 変換 
( DATA ) 

画面プリント 


KEY 


CALL すると、力ーソルが消える。 

CALL すると、力ーソルが表示される。 

カセットを ON にして人力準備をする。 
REMOTE SW - ON 状態になる。 

CMT を CLOSE にする。 

REMOTE SW - OFF 状態になる。 

ポート21 H に CE ， 11を出力し、8251をセット 
する 

カセットを ON にして出力準備をする。 
REMOTE SW - ON 状態になる。 


ストップキーが押されているかどうかをチェ 
ックし、押されていれば、キャリーフラグを 
1にして戻る。 

ストップキーが押されていれば、 ACC に、' 3' 
ESC キーのときは、 ''13" が入って戻る。 


ポート21 H に 0 E , 40を出力し、8251をリセッ 
卜する。 


ACC に ASCII コードをセットし、 CALL す 


キーボードが押されるまで待ち、人力結果を 
ACC に ASCII コードで人れて戻る。 

キ ー 人力があつたら、キャリ ー フラグをリセ 
ット （CY —0) し、 ACC に ASCII コードを 
セットして戻る。 

キーボードが押されていたら、その入力結果 
を ACC に ASCII コードで入れて戻る。 
(押されるまで待ちません。） 

キーボードマトリクスを ASCII コードに蛮 
換するためのデータ。 


CALL すると、 VRAM の内容（画面に表示し 
ているもの）をプリンタに出力する。 

第0行から、 スクロール ウインドウの下端ま 
でをプリントアウトする。 


"PD8251 … USART 


画面 

^ 11この部分を 

mmi\vr 


LOCATE による表示の場 
合、あらかじめ 

COLOR ，紐 20 
PRINT CHR$(12} 

実行しておくと、表示文字 
間が詰まりません。 
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アドレス 

項目名 

機 能 

X 5 9 F 

DATE $ 

固面表示は、 52 F 0 

1 5 DC 

TIME $ 

画面表示は、 52 F 0 

16 0 2 

タイムリード 

CALL すると、結果が、ワークエリアのそれ 
；ぞれのアドレスに入ります。 

10進数のまま入ります。15秒— 15 H 

年の部分は、セットしたままのものが入って 
いるだけで、繰り上がりしません。 

16 40 

タイムクリア 

CALL すると、タイマを初期状態にします。 
00:00:00 

79/01/01 

16 5 1 

;タイムリセット 

DATE $， TIME $ リセット 

16 6 3 

タイムセット 

EA 76 〜 EA 7 B に時刻.日付を入れて CALL 
する。 1 

17 5 7 

初期化ルーチン 

コールドスタート時に実行される。 

18 3 8 

V ersion 

NEC PC -8001 BASIC …… CRLF t ! 

S 

メッセ ー ジ 


18 7 4 

1 ( DATA ) 


18 7 5 

DISK BASIC 

メッセ ー ジ出力 

Disk Basic Feature メ ッセージ出力 

18 8 6 

GET 


18 9 1 

PUT 


1 B 7 E 

1行入カルーチン 

RETURN , STOP で戻る。 

1 B 8 A 

1行入カルーチン 

カーソルのあるところから、1行入力 

EC 96 〜 ED 93(254 バイト）にバッファがあり 
最後の文字の次には、00が入る。 

1 BD 8 

コントロール文字 

出力 


1 EC 0 

CSAVE 


1 F 1 0 

CLOAD 


1 FBC 

SKIP 

SKIP :ファイル名をプリントして、口ードを 
つづ‘ける。 

1 FC 9 

Bad メッセ ー ジ 

( DATA ) 

'' Bad " メッセ ー ジ 

1 FEF 

Found 

メッセージ 

( DATA ) 

'' Found : " メッセージ 

1 FF 6 

Skip 

メッセ ー ジ 

( DATA ) 

Skip . . ’ メッセジ 


備 


考 


A 


E A 7 6……秒 
E A 7 7 分 

E A 7 8 時 

E A 7 9 ……日 
E A 7 A ……月 
E A 7 B ……年） 


キー入カ バッファ EC 96〜 
(254 バイ ト} 
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1 F F C Found 


Found * 


をプリントする 


O 


2 0 F 9 PORT 


2 2 6 2 INIT 


2 4 OF 単精度减算 
2412 単精度加算 
2 5 0 3 LOG 
2541単精度乗算 
2 5 9 C 単精度除算 


2 6 7 1 ABS 


2 6 8 6 SGN 


2689 整数化 


(Flow Acc )—( レジスタペア） _ (Flow Acc ) 
(Flow Acc )—( レジスタペア） + (Flow Acc ) 


(Flow Acc )—( レジスタペア ） X (Flow Acc ) 


Flowting point Acc の 

アドレス 

F0 A3 
A 4 
A5 
A 6 


(Flow Acc )—( レジスタペア ） + (Flow Acc ) (H し） 


A 81 
A9_ 


I 


A A 
A B 


単 

精 

度 


倍 

妙 

棺 

度 


Acc (— 128〜127 ) を整数にして Flow Acc 

にストア 


2 7 0 C I 単精度比較 
2739 整数比較 
2778 倍精度比較 
2 7 7 F CINT 
2 7 B 3 CSNG 
2 7 DF CDBL 

2 7 F A Flow Acc Flow Acc がストリングでなかったらエラ 

すエツ7 


2 8 2 C FIX 

2 8 3 F INT 

2 8 D 2 整数減算 

2 8 DD 整数加算 

2 8 FD 整数乗算 

2 9 C 3 倍精度減算 

2 9 CA 倍精度加算 

2 A 2 B 倍精度の正規化と 

符号付け 

2 AF 4 倍精度除算 
2 BBE 型判断と 

ポインタセット 

2 D 13 HL をプリント 
2 D 2 2 型変換 


整数除算… 4 BEA 


HL (0-65535) 
数値—文字列 





1 ァドレス 

項目名 

機 能 

備 考 


HEX^DEC 

(型変換） 

F 0 A 8, A 9( FlowAcc ) の16進数を5桁の10 
進数の文字列にして、 （ HL 卜 （HL + 4) に入 
れて 、 （HL + 5) に00を入れる。 


3 14 8 

1 

3 15 1 

DATA 

( HEX -^ DEC ) 

2 710——10 0 0 0 

0 3 E 8 . 10 0 0 

； 0 0 6 4 . 10 0 

0 0 0 A . …"10 

0 0 01 . 1 


31 A 1 

； SQR 



3 1 F 3 

EXP 



3 2 8 3 

RND 



3 2 F 6 

COS 



3 2 FC 

SIN 



3 3 5 D 

TAN 



3 3 7 2 

ATN 



3 3 BD 

3 4 6 6 

中間言語処理 

( DATA ) 

中間言語に対応した処理ルーチン表 

81 H —END 

i 

D 5 H 一 LOCATE 


3 4 6 7 

5 

3 4 C 0 

中間言語処理関数 

( DATA ) 

関数の中間言語に対応した処理ルーチン表 

FF .81 H — LEFT $ 

S ! 

FF-ADH — MKD $ 


3 4 C 1 

34 F 4 

中間言語 

Index 
( DATA ) 

キーワードの頭文字 （A BC …… Z ) とキーワ 
—ド格納アドレスの対応表 


3 4 F 5 

、 

キ_ワード 

( DATA ) 

キーワードと中間言語コードの対応表 

A B C 順 


3 7 A 7 

3 7 A 8 

3 7 BC 

特殊記号 

( DATA ) 

特殊記号と中間言語コードの対応表 


3 7 C 9 

3 702 

型変換ルーチン 

( DATA ) 

型変換処理ルーチンアドレス 

3 7 C 9 …… CDBL ： 2 7 DF 

3 7 CD "… C I NT : 2 7 FA 

3 7 D 1 . C S N G ： 2 7 B 3 


3 703 

^ ! 

3 7 F 0 

算術演算 

処理ルーチン 

( DATA ) 

算術演算処理ルーチンアドレス 1 

3 7 D 3 〜 倍精度 

3 7 DD 〜単精度 

3 7 E 7〜整数 



224 












3 7F2 

3 AO 4 

エフー 1 メツセージ 

(DATA ) 

エラ ー メッセ ー ジの表 

3 7 F 2 .… “NEXT without FOR 


3 AO 5 | 

3B5B 

初期設定 

(DAIA) 

初期設定のとき、 EA00 〜 EB56 に転送される。 
(詳細は、ワークエリア EA00 〜 参照のこと。） 

転送先 EA00 〜 EB56 

3B9D 

OUT OF 

MEMORY 

チェック 

Out of Memory チェックルーチン 

C レジスタに必要なスタックレベル 


3BDF 

syntax error 

Syntax error 処理 


3BF1 

Over flow 

Over flow 処理 


3 BF9 

エフー表不 

E レジスタに ERR コードを入れて CALL す 
る。処理後、 BASIC のコマンド待ちになる。 


3C9F 

コマンド待ち 1 

コマンド待ちに入るアドレス 0 


3D6 7 

コマンド待ち 

DE レジスタペアに、 EB54,55 の内容をセッ 
卜して、 JP すると、コマンド待ちになる。 
(変数はクリアされる） 

EB 54,55 

BASIC プログラム 
開始番地 

3D7 6 

プログラム 

フィット 

EB 54,55 から人っている BASIC プログラム 
をその番地にフイットさせる。 

(end — 00,00 ) 


3DE0 

NEW 

Basic プログラムを抹消する。 

コマンド待ちになる。 

(JP3DE0 または、米 G3DE0) 


3DF4 

RUN 

Basic プログラムが実行開始される 0 
(JP3DF4 または、米 G3DF4) 


3E5C 

数値入力 

サブルーチン 

?を表示して、入力待ちとなる。 


4 0 9 5 

HL-DE を行ない、 

HL-DE を行ない、 Z フラグをセットする。 
(Acc は、破壊される） 


4 0 A6 

1 文字出力 

Acc に ASCII コードをセットし、 CALL する。 

RST18 に対応 

4 15 9 

FOR 



41 F A 

コントロ ル B 

mon モ ー ドから BASIC に民る。 


4 3 0 2 

RESTORE 



4 3 OC 

RESTORE 

DE に行番号をセットして、 CALL すると、 
RESTORE 行番号 


4 3 2 A 

STOP 



4 3 2 F 

END 



4 3 8 3 

CONT 



4 3 9 6 

TRON 
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アドレス 

項目名 

機 能 

4 3 9 7 

TROFF 


4 3 9 C 

SWAP 


4 3DF 

ERASE 


4 4 5 B 

DEFSTR 


4 4 5 E 

DEFINT 


4 4 6 1 

DEFSNG 


4 4 6 4 

DEFDBL 


4 4 A 5 

メッセージ出力 

Illegal function call メッセージを出力して、 
BASIC コマンドモードに戻る。 

4 4C 7 

DEC—HEX 

HL レジスタに文字列の先頭アドレスを入れ 
て CALL すると、 16 進に変換したものが、 

DE レジスタに入る。 

4 4E8 

CLEAR 


4 5 3 D 

RUN 


4 5 5 5 

GOSUB 


4 5 6D 

GOTO 
(GO TO) 


4 5 A 3 

RETURN 


4 5 BE 

DATA 


4 SCO 

ELSE 

REM 


4 5 DE 

LET 


4 6 4 2 

ON 


4 6 8 C 

RESUME 


4 6 C 4 

ERROR 


4 6CF 

AUTO 


4 7 0 2 

IF 


4 7 3 A 

LPRINT 


4 7 4 2 

PRINT 


4 8 7 7 

LINE 

カラーモード時の 1 行単位での機能指定をす 
る。 HL レジスタにデータアドレスを入れて | 

CALL する。 

例、 LINE1 0 ， 1 のときデータは、 

31 ， 30,2 C ， 31，00 








t 


4 8 B E 


エフ ー メツセ ー ジ 

(DATA) 


? Redo irom start 















4 8 DA INPUT 


4 9 3 9 

READ 


4 907 

エラーメッセージ 

? Extra igrnored 


(DAIA) 


4 AO 8 

NEXT 


4 A8F 

式の計算 

HL がテキストポインタ 

4BEA 

整数除算 


4CCB 

大文字変換 

小文字を大文字にする。 

4 E3 7 

DIM 


4E3F 

変数 サーチ 

DE レジスタに蛮数最下位バイト 1 ュづ之 

EF45 に型 

5 0 5 1 

FRE 


5 0 7 4 

LPOS 


5 0 7 9 

POS 


5 OCC 

DEF 


5 2 7 0 

OCT$ 


5 2 7 5 

HEX$ 


5 2 7 A 

STR$ 


5 2 7 0 

文字列登録 

(HL) ...データアドレスから 00 までの文字列 
をストリングエリアにストアし、 FlowAcc に 
に登録する。 

5 2ED 

メッセージ出力 

HL レジスタに文字列の先頭を人れて CALL 
すると、 00 までの文字列が表示される。 
カーソルは、最後に表示した文字の次になる。 
( 改行はされない。） 

5 2F0 

画面表示 


5 3 2 F 

力へ ー ン 

(EF79, A)-(EB50,1) が残りバイト数を示 


コレクション 

す 。 

5 4 5 9 

ストリング 



チ X ック 


5 4 9 8 

ASC 


5 4 A8 

CHR$ 


5 4DF 

SPACER 


5 5 2 9 

RIGHTS 


5 5 3 2 

MID$ 


5 5 5 3 

VAL 






レス 



INP 


5 6 AD I OUT 





WAIT 


5 6FA I 式の評価 


0 S 式 S255 となるべき式を評価して Acc 
に人れる。 


LLIST 


5 7 0 C I LIST 


BASIC のリストを出力し、 BASIC のコマン 
ドモードに戻る。 


5 809 DELETE 


PEEK 


POKE 


5 9 2 A Flow Acc 

INT 


5 AED RENUM 


Flow Acc を INT にする 


0 


行番号変換 

行アドレス変換 
エラー メ ッセージ 

(DATA) 


行番号を行アドレスに変換 
行アドレスを行番号に変換 


Undenned line number 


5C2C 


タスタート 


5C3C モニタ スター 


5C5E ?モ 


5 C 6 6 米モニタ 


5C6F モニタ処理 

S ルーチン 

5C9 2 I (DATA) 

mon—► BASIC 
5099 S コマンド 
5D16 D コマンド 
5068 G コマンド 
5D7 4 W コマンド 
5 DA E L コマンド 

LV コマンド 


PO 8001 用モニタの開始番地 
PC- 8001 用モニタの開始番地 
0D,0A,3F( ? ) を出力してモニタに移る。 
'' 米"を表示してモニタのコマンド受付状態に 

なる。機械語の最後に HALT(76H ) の代り 
に JP5C66 を入れておくと、 1 々 RESET す 

る必要がない。 

モニタモー ドの コマン ドに対応した処理 ルー 
チンの対応表 


5 C 2 C および 5 C 3 C 番地を 
CALL した場合は、コント 
ロール B で BASIC へ戻れ 

ない。 


モニタから BASIC へ戻る 


セ 


デイ スプレー 


ジャンプ 


ライト（カセットへの） 

口ー ド（カセツトからの） 


* 

















5 E 21 


16 進入カルーチン 


DE にスタートアドレス、 HU こエンドアドレ 


スが入る。 

5 E 3 9 HEX チェック Acc にコードを入れて CALL し、16進に使用 

されるキャラクタかどうか調べる。 

16進用キャラクタでなければ、キャリーフラ 
グがセットされる。 

5 E 4 B バイナリ変換 4桁までの16進 ASC II コードをバイナリコー 

ドに変換する。 

Acc に ASCII コードをセットして CALL す 
る。 

5 E 8 316進変換 Acc にバイナリコードを入れて CALL する。 

結果は、 DE レジスタ。 

5 EA 0 バイナリ変換 DE レジスタに ASCII コー ドを人れて CALL 

する。結果は、 Acc に残る。 

5 EBD アスキー変換 表示したいメモリの番地を HL レジスタに入 

および表示 れて CALL すると、その番地の内容（バイナ 
| :リ）を画面の力ーソル位置に表示。 

5 ECO アスキー変換 HL レジスタ中の4桁のバイナリコードを 

および表示 ASCII コードに変換して、画面のカーソル位 

置から表示する。 

5 EC 5 BIN ^ HEX Acc にバイナリコードを人れて CALL すると 

画面にその HEX コードを表示する。 

5 ED 3 HL-DE HL - DE の演算を行なって、結果として、フラ 

グの内容のみを蛮える。 

Acc もこわれない。 

5 FAD キー人カ キー入力、出カサブルーチン 

(英小文字は、英大文字に変える。03 H でモニ 
夕へ). 

5 FB 0 1文字表示と Acc に文字コードを人れて CALL する。 

力ーソル表示 画面に Acc の内容を表示して力ーソルも表示 

5 FC 1英大文字変換 A 〜 Z までの小文字を大文字に変換する。 

Acc に文字コードを入れて CALL すると結果 
b Acc へ 

5 FCA CR&LF 改行する。 （ CR と LF を出力するサブルーチ 

ン） 

5 FD 4 スペース 表示 i 固面に スペースを 表示する。 




DISK BASIC インタフリター覧表 


アドレス 

項目名 

機 能 

備 考 





D 3 E 6 

DISK BASIC 

DISK BASIC 起動時に、システムディスクよ 


i 

E 9 D 3 


り、この部分に、データがブロック転送され 
てく る。 


D 3 E 6 

エラーメツセージ 

DISK BASIC 用エラーメッセージ表 

エラーコード…51 H よ*) 

； i 

D 5 7 E 

( DATA ) 

D 3 E 6 ***FIELD overflow 


D 5 7 F 

転送ル ー チン 

ジャンプテーブル用ブロック転送ルーチン 




D 58 B からの 135 H バイトを F 0 E 1 〜 F 215 




へ転送する。転送後は不用。 


D 5 8 B 

ジャンプテ ー ブル 

起動時に、 F 0 E 1 〜 F 215 へ転送される。 



( DATA ) 

転送後は不要。 

! 

D 6 C 0 


N-BASIC の RUN ルーチンより、 | 


D 6 CC 


ファイルバッフ T ポインタ退避 


D 6 D 3 


〃 復活 


D 6 DA 


n クリア 


D 7 0 A 


エラーメッセージポインタ設定 




(HL :エラーメッセージの先頭アドレス） 


D 7 3 7 


INPUT # メインルーチン 


D 7 7 4 


PRINT # メインルーチン 


D 8 0 4 

FORMAT 



D 8 BF 

MOUNT 

メインル^—チン 


D 91 E 

エフ ーメツセ ー ジ 

し opies of allocation ……… 


i 

( DATA ) 



D 9 4 0 




09 41 

REMOVE 

メインル ー チン 


D 9 C 3 

LOC 



1 DA 2 6 


C レジスタ X 8 ， 結果は DE レジスタ 


! DA 9 0 


ファイル名解析 


DB 11 


ファイルバッファポインタ GET 
(結果は HL レジスタ） 



















DB 3 D 


NAME 


FAT ポインタ GET (結果は HL レジスタ） 
メインルーチン 


DB 8 4 
DBC 4 ファイル名交換 

DBD 6 OPEN 


DD 2 C ファイルプロテク 

DDDE KILL 
DDEB 

DDFO LOAD 
DDF 1 MERGE 
DE 3 D SAVE 
E 011 RSET 
E 012 LSET 
EOBF FIELD 
El 0 9 SET 
E 15 D ATTR $ 

E 1 D 2 MKI $ 

E 1 D 5 MKS $ 

E 1 D 8 MKD $ 

E 1 EB CVI 
E 1 EE CVS 
E 1 F 1 CVD 
E 2 0 8 MOUNT 
E 2 0 D REMOVE 
E 2 4 0 CLOSE 
E 2 5 6 

E 2 7 F LFILES 
E 2 8 4 FILES 




E 3 2 6 PUT # 


E 3 2 7 

GET # 


E 3 BD 


ファイルバッファへ1バイト書く 

E 4 OC 


ファイルバッファから1バイト読む 

E 4 4 A 

DSKI $ 


E 4 7 C 

DSKO $ 


E 4 9 8 


DE 力、 ら HL へ C パイ トコ ピー 

E 4 A 2 


テキストより3つのパラメータを得る 

①，②，③4 ① —A reg 

② —B reg 

③ 一 C reg 

E 812 

DSKF 


E 8 2 3 

LOG 


E 8 3 B 

LOF 


E 8 4 C 

EOF 


m 

FPOS 


E 9 8 6 

エフー処理 

ェラーコー ド設定後 ェラー ルーチン （3 B . F 9) 

へジャンプ 

E 9 D 4 

オープンファイル 

数 （ DATA ) 

DISK BASIC 起動時、 How many files 

(0 〜 15) ? でインプットした数値 (0 〜 F ) が人 
る。 

E 9 D 5 

〜 D 6 

バッファポインタ 

( DATA ) 

バッファポインタの始まりアドレス 

E 9 D 7 

〜 D 8 

FAT ポインタ 

( DATA ) 

FAT ボインタの始まりアドレス 

E 9 D 9 

〜 D A 

バッファ# 0 

先頭アドレス 

( DATA ) 

バッファ# 0の領域 (256 パ•イト）の先頭アド 
レスを指す。 


トラック No . 

格納アドレス 

( DATA ) , 

最後にアクセスしたドライブの FAT のメッ 
セージェリア内のトラ ッ ク No . を示すアドレス 

E 9 DD 

〜 D E 

データ ポインタ 

( DATA ) 

バッファ# 0内を指す。 

E 9 EO 

〜 E 1 

ドライブ No . 

最後に LOAD または、 SAVE したドライブ No . 

E 9 E 2 

〜 E A 

ファイル名 

最後に LOAD または、 SAVE したファイル名 
















E 9 EB ファイル名 NAME のときに使用 

〜 F 3 

E 9 F 4 DSKO $ の 

トラック No . 

E 9 F 5 DSKO $ の 

セクタ NO . i 





ワークエ U アー覧表 


アドレス 

機能•用途 

備 考 

EAOO 

初期設定時に 3 A 05 〜 3 B 5 B の内容がここにブロック転送さ 


〜 EB 56 

れてくる。 


EAO 0 

OUT 文で使用…… OUT ( n)，A 

EA 01 … I / O ポートアドレス 

〜 0 2 


ACC …出カデータ 

EAO 3 

割り算のルーチンより CALL 


〜 10 



EA 1 1 

RND 用カウンタ 


EA 12 

RND 用] ROM データポインタ （1 〜 3) 


EA 13 

RND 用 RAM データポインタ （0 〜 7) 


EA 1 4 

RND 用 RAM データ。4バイトで1組（♦••単精度データ） 


〜 3 3 

ここを変えると、乱数発生の系列が変わる。 


EA 3 4 

前回発生した RND の値 

RND ( O ) の値 

〜 3 7 



1 EA 3 8 

INP 関数で使用 ,.•••• INA , ( n ) 

EA 39… I / O ポートアドレス 

〜 3 A 


ACC …入カデータ 

EA 3 B 

USR 関数のエントリーアドレス 


〜 4 E 

( USR 0 〜 USR 9 •…”2バィト1組） 

未定義の USR 関数については、 44 A 5 H が入っている。 

(44 A 5 へ飛ぶと 、 Illeagal function Call が出力される。） 

EA 48 TAB カウンタ 

EA 4 F 



E A 5 0 

フリーエリア最終アドレスの初期値… E 9 FF 

EF 54,55 

〜 51 

( CLEAR 文でも変化しない。） 

(CLEAR 文で変わる） 

EA 5 2 

コマンド/ステ ー トメント中間言語テーブル開始アドレス 

33 BD 

〜 5 3 



EA 5 4 

RS *232 C バッファ オ ー バ ー フロ ー フラグ 

Overflow …〇 0 H 

EA 5 5 

現在（割込み発生の直前）の割込みレベルが保存されている。 

( Non - interrupt _ FF ; 


EA 5 6 

インタラブトがあったことを示すフラグ 

(interrupt . not 0 ) 


EA 5 7 

00 H 以外を入れて、1文字出カルーチンを CALL すると、 

■ 

■ 

現在のカーソルのある位置の次の行をクリア。 



■U|wl 













EA 5 8 ターミナルモードのフラグ 


EA5 9 


EA5 A 


EA5B 


EA5C 


EA 6 0 


_ * _» - J * ~-— 


bitO 


プリン タ へのエコー バックをする/しない 
コントロールコードを 表示する/しない 

ASC11/JIS — __ 

半二重/全二重（才 —トェ コー する/しない） 
パリティをつける/つけない 
パリティ EVEN/ODD 一 — 

CR コードで！^する/しない 
，ター ミナルモードである/ない 

■ターミナルモードのとき、このバイトが〇 
になると困るので1にしてある。 


力ーソルの ON/OFF を EA5FH に従わせよ/といつフラ 
グ 

ヌルキャラクタ コード . カラー 文の第2 パラメー タ、ホ— 

ムクリアのとき画面に表示するキャラクタのアスキーコード 
を入れておく。 . 通常 00 H 

アトリビュートコード . 通常〇〇 H 

リバース、アンダーライン、カラー指定などアトリビュート 
に入るもの 

白黒モード I M | _ D l—p |「一 Fr Ib S 


グラフィック/キャラクタ 
アンダーライン 
アッ八ーライン 
リ バース 

ブリンク 
シ ー クレット 


カラ ー モ ー ド ー ー D P 0 R B S 

R G B M 1 一 


里 

青 

緑 

シアン（空） 
赤 

マゼンタ 

黄 
，白 


ファンクション キー表示方法 50 H …リバース 

〇〇 H …ベースアトリビュート画面をクリアして切換わる 


EA5D スクロールの長さ …… 00H で 1 行、 01H で 2 行 


EASE スクロールの開始イ了 +1 

EA 5 F 力ーソルスイツチ 


01 H で最上行 


00 H _"OFF 0 0 H 以外…表示 


ファンクショ ンキー表示 ス イッチ 00H … OFF 

00 H 以外…表示 


01 H を入れたときのフアンクシ 
ヨンキーの機能 

f *6 * コントロールコードを 

表示する/しないのス 
イッチ 

f *8 : 夕 ー ミナルモ ー ドリセ 


f *9 :画面プリント 
f ，10: プリンタのラインフ 
ード 


EA 5 カー ゾノレスイツチ 


ターミナルモード. 01 H で f 9 
にて画面プリントするとき、20 
H を入れておけばスペースが無 
視されない。 


カラー コー ド 



Y 

M 

C 

W 


黄 

マゼンタ（桃） 
シアン（空） 

白 


BL : 


locate 文第 3 パラメータ 






























アドレス 


EA 6 1 カラー/白黒モード 

EA 6 2 行数/白黒モード 

EA 63 力ーソルの Y 方向の位置 

EA 6 4 力ーソルの X 方向の位置 


OG H … 

…白黒 

FFH … 

…カフ ー 

14 H … 

…20行 

19 H … 

•••25行 



EA 6 5 


白黒モードのときの1行の文字数 24 H …36 

28 H …40 


EA 66 前に I / O ポート 30 H に出力したもの 


48 H …72 
50 H …80 


BS 2 bs t 


MOTOR 

ON 


OFF 


CINH 


白黑 

/ 

カラー 


CINH : CMT インタフエースの出力するキャリア 

のコントロール 

0……2400 Hz 

1 • …"1200 Hz 

BS 1, 2 : CMT/SIO チャンネルの制御 

BS2 ， BS 1 

〇 0 .CMT チャネル 600 ボ — 

0 1 チャネル 300 ボ— 

1 〇 .SIO チャネル 

1 1……禁止 


EA 6 7 前に I / O ポート 40 H に出力したもの 


ボー，…ビット/秒 
(転送速度の単位） 


BEEP 


ブザー 


BEEP 


C し DS CLK CSTB PSTB 


EA 6 C 
〜7 5 


PSTB プリンタへのストローブ 

CSTB . クロックに対するストローブ 

CLK . クロックに対するシフトパルス 

CLDS …… CRT コントロール回路への同期 

パルスを与える。 


EA 6 8 ファンクションキーフラグ 


NOT ZERO でフラグ ON 


EA 6 9 キーボードから入力されたコード 

EA 6 A 前回押した特殊キーの データ 

EA 6 B リピートカウンタ（リピート〇は 06 H 


キ ' —ノ、。夕—ン 


フアンクションキーポインタ 

EDC 0 ， C 1 


00… 

…人力なし 

01… 

…シフ トキー 

02… 

-" Z / ント 117 ' — * 

03… 

…” ナ彳一 

04… 

•"カナ+シフ 

05… 

•••グラフ キー 


ルキー 






























タイマリードをした時にセットされる 

初期値79年1月1日 


ERR コード 〇〇 :エラーな し 


RS -232 C 用 


PSET ， PRESET , GET , PUT , LINE などで使用 


い7 
{ *8 
f *9 
f ,10 


h t 

auto 
go to 
list 

run c r 
time $ 
key 
print 
list. Cr す 
cont C R 


ファンクシヨンキーの内谷 

1組16バイト(最後は 00) で10組 


スタックポインタの始まりアドレス 

(フリーエリアの最終から文字領域分を引いたところ) 

現在実行中の行番号 


プログラムテキスト開始番地 
BASIC プロダラムスタート番地 


スクリーンへの表示 dis-able 
PRINT ルーチン （ 4742-)で使用 


プリンタのヘッドの位置 

出力機器機番 f 00 .-CRT 01〜7 F •••プリンタ 1 

, 80〜 FF*"CMT , 

スクリーンの実際の横の桁数 


例えば10月は、 

0 AH ではなく 10 H 
と人る。 


3 A 81 H 〜 3 B 20 に初期値が入 

つている。 


LPOS 関数の値 


16 K システム C 021 H 
32 K システム 8021 H 


EA 7 C 〜 
8 C 〜 
9 C 〜 
A C 〜 
BC 〜 
CC 〜 
DC 〜 
EC 〜 
FC - 
EB 0 C 

EB 1 C 
〜2 9 

EB 2 A 
〜4 5 

E B 4 6 

EB 4 7 

EB 4 8 

EB 4 9 


E B 4 A 

EB 4 B 

EB 4 C 

EB 4 D 

EB 4 E 

EB 4 F 

EB 5 0 
〜51 

EB 5 2 
〜5 3 

EB 5 4 
〜5 5 


EA 7 C 
〜 1 B 


EA 7 6 
7 7 
7 8 
7 9 
7 A 
7 B 


秒分時日月年 






アドレス 



EB 5 6 


EB 5 7 中間言語 バッファ 


r 


EC 9 2 


T 




キー入カバッファ （254 バイト） 




ED 9 4 


r* 


ED 9 9 I カーソル X 座標 


CONT CODE :その行が次の行とつながっているかどうか 
を示す。 

ED 9 A ……0行目 00 . つながっている 

1 00以外…切れている 

EDB 2 ……24行目 


EDB 3 !カセットのとき00 H 


EDB 5 


X 方向 j 画面から文字を読むときの読みはじめ位置 
Y 方向| ( 1行入力のときの初期カーソル位置） 


EDB 6 どこまで読むか（ X 位置) 

EDB 7 TE 3 RM で使用 




EDB 9 I Disk で転送するセクタ数 


EDBA 

EDBB 

EDBC 

EDBD 

EDBE 


アトリビュート要素 


X 方向1 が〜 

Y 方向 j クフフィ 

COLOR CODE 

画面上のアドレス 


グラフ ィ ック座標 


PSET , PRESET 
GET ， PUT 
LINE で使用 


EDCO 
〜 Cl 


フアンクシ ョ ン キー ポイ 
フアンクションキー入力 


キー ポインタ 
キー入力文字列の先頭ア 


ドレスを指す, 


文字列最後は00 H で判断 


EDC 2 I キー入力でキーが押されていれば0になる 


EDC 3 
〜 C 4 

EDC 5 

EDC 6 

EDC 7 

EDC 8 


Y 方向 
X 方向 


キャラクタ座標 


EDBA - F 関連 


エラー カウンタ 
ドライブ# (〇〜 ) 
ドライブの個数 


DISK 


EDC 9 コントロー ルポー トアドレス 

EDCA LINE を引くキャラクタ 


DISK 


[•] 
















I EDCB 

time up までの時間 . DISK 



EDCC 
〜 CD 




EDCE 
〜 EE 4 D 

RS -232 C チャネル 1 バッファ （128 バイト） 


EE 4 E 

〜 EECD 

RS -232 C チャネル2バッファ （128 バイト） 


EECE 

EEDO 

RS -232 C 出力文字一時退避 
RS -232 C チャネル井 ( Oorl ).... 

..出力時 


EED 1 

〜 EF 2 B 




EF 2 C 
〜 3 5 

PUT / GET で使用 



EF 3 6 
-3 B 

SAVE / LOAD のファイル名が入る （6 バイト） 


E F 3 C 

TAPE からの入カ エラー があったときに Tape read error 
として落とすかどうかのフラグ 

00 H ……エラーに する 


EF 3 D 

EF 3 C と同じような目的で設けられたと思うが使用してい 

ない。 


EF 3 E 

〜 4 3 

現在 LOAD 中のファイル名がはい 

る 。 


EF 4 4 

変数認識ルーチンで、 DIM 文から来たことを示すフラグ 

00 H 以外 


r 

FACC の型が入る。 

02……整数型 

03……文字型 

04……単精度型 

08……倍精度型 



卜 

中間言語：^^リスト変換の両方のルーチンで使われる。 

中間言語の中だとか、 DATA 文、 3 REM 文の中だとかを示 
す。 


EF 4 7 

リストー^中間言語ルーチンで数字を文番号として扱う 
ことを示すフラグ 


EF 4 8 

I •-4 9 

EF 4 A 
EF 4 B 
EF 4 C 
〜 5 3 

ポインタの SAVE 場所 ' 

ACC の SAVE 場所 
精度（02，04または 08) 

フローティングボイントレジスタ 

^ 1単語を Get する。 

1 











フリーエリアの最終アドレス . CLEAR 文第2パラメータ 


EF 5 4 
〜5 5 

EF 5 6 
〜5 7 

EF 5 8 
〜7 5 

EF 7 6 
〜7 8 

EF 7 9 
〜7 A 

EF 7 B 
〜 7 C 

EF 7 D 
〜 7 E 

EF 7 F 
〜8 0 

EF 8 1 
〜8 2 

EF 8 3 

EF 8 4 

EF 8 5 
-8 6 

EF 8 7 

EF 8 8 

EF 8 9 
〜8 A 

EF 8 B 
〜 8 C 

EF 8 D 
〜 8 E 

EF 8 F 
〜9 0 

EF 9 1 
〜9 2 

EF 9 3 
〜9 4 

EF 9 5 
〜9 6 


ストリング(文字列）用スタックポインタ 

ストリングスタック（ディスクリプタのスタック） 

3バイトで1組 

カレントストリングデイスクリプタ（ストリング ACC ) 
ストリンダフリースペース頭 


ガベー ジ コレクシ ョ ン 中で HL Save (変数ポイ ンタ） 

For 文中で HL Save (テキストポインタ） 

Read 文ポインタがある行の行番号 

変数認識で使用。どこから呼ばれたかを示す。 

Read であることを示すフラグ 


行番号 一 >アドレスが起こったことを示すフラグ 
AUTO 実行中を示すフラグ 

今度発生する行番号 
行番号間かく。 

1文を実行する前の HL の値 
1文を実行する前の SP の値 
ERL (エラーの起った行の行番号） 


ERL コピー（プログラム実行中だったとき） 
ERROR 文のアドレス 


N - Basic のみのとき E 9 FFH 
となる。 


1バイト文字数 

2バイトアドレス 


BREAK 時の行番号 









ON ERROR GOTO 〜の先アドレス 


EF 9 7 


-9 8 



EF 9 9 

ON ERROR GOTO のフラグ 


EF 9 A 

HLSAVE 


〜 9 B 



EF 9 C 

ERL コピー 


〜 9 D 



EF 9 E 

ERROR 文のアドレス 


~ 9 F 



EFAO 

~A 1 

変数領域の始まりアドレス 

このアドレスの前 2 バイトが、 
プログラムエンドを意味するり 


ンクポインタ 00 H ，00 H となつ 

EFA 2 

配列変数領域の始まりアドレス 

ている。 

〜 A 3 



EFA 4 

フリ ー エリアの先頭アドレス 1 


〜 A 5 



EFA 6 

READ 文ポインタ 


〜 A 7 

(現在 DATA 文中 READ している部分のアドレス） 


EFA 8 

蛮数の暗黙型… DEF 文で変わる。（変数の型指定） 


〜 C 1 

( A 〜 Z 26文字分） 


EFC 2 

FN 関数で使用 


〜 F 090 

引数のテーブルなどに使用する。 

i 

FO 91 

不明 


FO 9 2 

,変数の サーチで 使用 


〜 9 5 



FO 9 6 

ガベ— ジ コレクション で使用 


〜 9 7 



F 0 9 8 

FN で使用 


~ 9 9 



FO 9 A 

SWAP 用フローティングポインタレジスタ 


〜 A 1 



F 0 A 2 

1 TRON フラグ……01 H で ON 







F 0 A 3 I 浮動小数点アキュムレータ （ USR 関数引数) 


AB 


EF 45 H に型が入る。 


F 0 A 3 

A 4 

A 5 

A 6 

A 7 

A 9 
AA 
AB 



整数型 

( 02 ) 


単精度型 

(04) 


倍精度型 
(08) 


FO AC I 符号 

倍精度演算用数値 F 0 AD 〜 

F 0 B 5 …符号 

F 0 B 6 HEXS , OCT $ 用バッファ 
〜 BC 

FOB 7 FAcc — ストリング用バッファ 


空き/上のバッファに含まれるが’、実際には、使用 


されな 


倍精度割り算で使用 


F 0 D 9 
〜 D D 

F 0 DE 単精度乗算で使用 


N - BASIC (DISK BASIC ) 用 ジャンプ テーブル 
3バイト1組で100組 


空き 


詳細は、次頁からのジャンプテ 
_ブル参照。 


F 3 0 0 


FEB 8 


3C 


FF 3 D 


ビデオラム （3 K バイト） 

1行120バイト （80 パ'イト画面、40バイト…アトリビュート） 

クリアするときビデオ RAM に入れるもの1行分 
1行120バイト （80 バイト画面、40バイト…アトリビュート） 


詳細は圃面表示の項参照 


F F 3 0 I モニタで使用 


シャライズ後は、空き 











ジャンプテーフルー覧表 


アドレス N-BASIC Disk BASIC 



F0E1 
E 4 
E 7 
EA 
ED 
FOFO 
F3 
F6 
F9 
FC 
FF 
FI0 2 


8 

B 

E 

Fill 

4 

7 

A 

D 

FI2 0 


6 

9 

C 

F 

F 13 2 


B 

E 

F 141 
4 
7 
A 
D 

F 15 0 


C 

F 

F 16 2 


18 7 5 


0 0 0 0 


El EB 
E1EE 
E1F1 


E8 2 3 
I E8 3B 
E1D2 
E1D5 
E1D8 
18 7 5 
DBD6 
EOBF 
18 7 5 
18 7 5 
18 7 5 
18 7 5 
18 7 5 
18 7 5 
18 7 5 
18 7 5 
18 7 5 
18 7 5 
18 7 5 
E2 7F 
E 3 2 7 
E4 7C 


E3 2 6 
E2 4 0 
DDFO 
DDF 1 


DDDE 
E012 
E 011 


E2 OD 


El0 9 
E812 


E4 41 
E 8 6 8 
D7 0 A 
E8 9 6 


<CVI> 

<cvs> 

<CVD> 

く EOF 〉 

く LOO 

< LOF > 

< MKI$> 

く MKSS > 

< MKD$> 
〔 CMD 〕 
〔 OPEN 〕 

〔 FIELD 〕 

〔 ISET 〕 

〔 IRESET 〕 
〔 TALK 〕 
〔 LISTEN 〕 
〔 MAT 〕 

CPOLL 〕 
〔 WBYTE 〕 
〔 RBYTE 〕 


<BCD$> 

く DEC 〉 

CLFILES) 

〔GET 井 〕 from 1888H 
〔 DSKO$} 

〔 FORMAT 〕 

〔 PUT#〕from 1893H 
〔 CLOSE 〕 

〔 LOAD 〕 

〔 MERGE 〕 

〔 NAME 〕 

〔 KILL] 

〔 LSET) 

〔 RSET 〕 

〔 SAVE 〕 

〔 FILES 〕 

〔 REMOVE 〕 

〔 MOUNT 〕 

〔 SET 〕 

<DSKF > 

<DSKI$ > 

<ATTR$> 
from 2327 H 
from 2345 H 
<FPOS> 

from F16BH ? エラーメッセージ出力、デ ー タアドレスセット後 


F 171 
4 


E8 71 


from3C8CH 

未使用 

from3D0EH 


コマンド待ちに戻る前 


二7マ 


ン ド待ちのとき、何かを人力、 RET を押したあと 













PRINT V'LPRINT 〃の頭 

LINE " の頭 
READ " の頭 


IN 

8251 関係、カセット I/O … OUT 


4 7 4 2 H 
4 8 DAH 
4 8 4 7 H 
4 9 3 9H 
4 B F C H 
4 6 4 2H 
41 FAH 
1 6C2H 
0 E 3 7 H 
0CDAH 


from 

" 

f! 

〃 

" 

" 

" 

" 

" 


D6CO 


未使用 


未使用? 


from 3 D 6 A H 
〃 3D70H 


不明 

from 


3E2 3H, 4 3 31 H 
4 8 7 3H … プリンタ処理後の後始末 
4 0 A7H … RST18 で通る。 

41 3FH 


4 5 4 0 H 'RUN "において、あたまに何かがつ 

4 7 4 5 H ''PRINT" のあたま 
4 7 91 H ''PRINT " の途中 
4 7 EAH 

4 7 EFH, 4 8 3 8 H 
4 8E2H ''INPUT 〃で％でなかったとき 

4 9 7 AH 


たとき 


0F9FH 
4 8 8 5H 
0C 8 8H 
017 5 H 


キーボートセンス 

LINE INPUT 井"のとき CALL 

カセット I/O … IN 


3 C 0 D H 
0 0 81 H 
0 0 9CH 
0BF3H 
0C4 6H 
0D6 1 H 
0DB8H 

4 BF9H 


Stop-RESET したとき通る 
デイ スク I/O 
カセット I/O … READ 
カセット I / O … WRITE 
1文字プリンタ出力 
''TERM " の頭 

次に F1FEH を CALL 


4 E4 7H ''DIM " コマンドの始めの方 

3 BF9H エラー処理ルーチンの頭 

3 EA8H 

5 81 8H 
5 4 7 CH 
5 3 0 6 H 
1 6C5H 


<RST20H> 
く " 28 H > 
〈〃 30H> 
く " 38H) 


F1 9 2 


B 

E 

FI A 1 


A 

E 

FI BO 


6 

9 

C 

F 

FI C2 
5 


B 

E 

F1D1 

4 


A 

D 

FI EO 


6 

9 

C 

F 

FI F2 
5 
8 
B 
E 

F2 01 
4 
7 
A 
D 

F210 


FFFF 


0 0 0 0 


0 0 FF 
F F F F 


FI7 7 


7 4 E 


D 7 9 E 


07 8 0 
D6 EE 
D7 6F 


E8 AC 


D 71 A 
0 7 3 7 
D8 2 B 


D6CC 
D6D3 
D 7 6 6 
D6 DA 
D6E2 


Disk BASIC 


N-BASIC 


4 o 
7 o 
7 7 

D D 














ポート 

アドレス 


1/〇ポート_覧表 


内 


容 


9 (入力 ） KEYBOAD 


0 H 


1 H 


〇 7 


〇6 


Ds 


D 4 

f 


〇3 


〇2 


Di 


Do 





6 

mmmm 

MM 

HHl 

wJ 


r 

L_ . 

1 * 

一 

「 

mmrnmi 



2 H 


3 H 






O 


4 H 


5 H 


v 


w 

ヒ 



nj 


6 H 


年 


vl 科 


7 H 


分 




8 H --4 ctr 


SHIFT 


力十 


raphHgrapk 


INS 

DEL 


\ om : 

: KR 


9 U-A ESC 


SPAfT 


7 F 

(127) 


BF 

(191) 


DF 

(223) 


E 7 
(239) 


F 7 

(247) 


FB 

(251) 


TO! 


FD 

(253) 


FE 

(254) 


10 AH 


15 FH 


未使用 


1610 H 


プリンタ出力用 
// PD 1990 用データ 

( NEC , vPD 1990データシート参照のこと。） 

注）関連ポートとして 40 H 参照のこと。 

(プリンタストローブ、 READY , / JPD 1990 コントロールその他） 


17 11 H 


31 1 FH 


ポート10 H のイメ ージ 






32 20 H 

33 21H 


( 入出力）パ PD825UUSART ) データワード 

( 入出力） #PD8251(USART ) コントロールワード 
(NEC "PD8251 データシート参照のこと。） 

|プログラマ ブル _コ ミ ユニ ケーシヨン•インタ ー フエ ー ス 

(Universal Synchro nous / A synchronous Receiver / Transmiter ) 


34 22H 


47 2FH 


49 31H 


63 3FH 


64 40 H 


65 4IH 


79 4FH 


20H ， 21H のイメージ 


48 30H ( 出力 ) 


出力 


MSB 
ビット7 

ビット6 

ビット5 

ビット4 

ビット3 

ビット2 

ビット1 

LSB 
ビット0 




1 

ON …1 

CINH 

1 

! 

j 

未使用 

未使用 

BS 2 

1 

BS 1 

MOTOR 
OFF -- 0 

[ 

白 1 カラー 

1 

0 

B 畔行 W 字行 

i 

0 


ワークエリア （ EA66H ) 参照 


30H のイメージ 


( 入出力 ) 



MSB 
ビット7 



出力 未使用 未使用 


BEEP 未接統 


CLDS 


C し K 


/ ipD 1990 "PD 麵 

デー 4 r , コントロール 

シフト•バルス•パルス 


LS 

ビッ 


リンタ 



入力 



DMA / iPD 19 卯の 


出カ データ 



" FD 8251 の 
入力 




ワークエリア （ EA67H ) 参照 


40H のイメ 


80 50H 出力 " PD 3301( CRTC) データ•ポート 

81 51H ；出力 " PD 3301( C3RTC) コントロール.ポート 


96 


60 H 

i 


/iiPD8257(DMAC ) 用 


100 64H ( 出力） 8257 の DMACh2 アドレス 


101 65H ( 出力） 8257 の Ch2 夕 


ナルカウン 


246 















104 |68 H (出力） 8257 のモードセット レジスタ 

00 H •…■.… DMA OFF 

112 7 0 ’ 

i i —未使用 

127 7 F J 

128 8 0 ' 

i 拡張 I/O (8011， 12) にて使用可 

175 AF , 

176 BO 汎用パラレル I / O ポート B 0……入力 （8 bit ) 

i . (8011) B 1……出力 （ 8 bit ) 

17 Q B 3 B 2. •人力 （ 4 bit ) 

B 3 "…•出力 （4 bit ) 



未使用 


チャネル 1 データ \ 

1 8251 ( RS -232 C ) 

チャネル1コマンド指定 J 
チャネル2データ \ 

1 8251 ( RS -232 C ) 

チャネル2コマンド指定 


未使用 


(出力） 

拡張ュニットモ ー ド設定 


(出力） ^ 

?Out ( E 4 H ) A 008 B で実行されている 

>未使用 

j 

(出力） 

拡張ユニット ROM , RAM 切換コントロール 


未使用 


(出力） 

FGU - 8000(高解像フルグラフイックユニット） 
VRAM 切換コントロール 


240 F 0 1 

1 未使用 
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FB 

















E1EB 

EiEE 

ElFi 


F120 1875 
0041 
0884 5 
F135 E24i 
4383 
44E8 
1F10 
IEC0 


31F3 

F8EA ES4C 

F12F 0804 
4159 

F102 E0BF 
F14D E284 

5051 

282C 

F168 E868 
4560 
4560 
4555 


32F6 

54A8 

F0FC 1875 

0951 

458E 

4E37 

4458 


445E 

4461 

4464 

F12C E47C 
50 CC 
5309 

F159 E812 
F123 1875 


2671 

3372 

5498 

46€F 



AC 

AD 

AE 

C2 

97 

A8 

E8 

FF Pi6 
FF 9D 
EB 
81 
A1 
A5 
A6 
DF 
E0 

FF 8B 
FF A7 
FB 
B3 
82 
C6 
CD 
DC 

FF 8F 
FF A2 
FF AA 
89 
8? 

8D 


DEFINT 

OEFSNG 

DEFDBL 

DSKOI 

DEF 

DELETE 

DSKI 朱 

DSKF 

DEC 

DATE 嚷 

END 

ELSE 

ERASE 

ERROR 

ERL 

ERR 

EXP 

EOF 

EQM 

FORMAT 

FOR 

FIELD 

FI し ES 

FN 

FRE 

FIX 

PROS 

GOTO 

GO TO 

GOSUB 



5 KEYWORD , 中間言語コードと処理ルーチン対廊表 


100 CLEAR 2800 :DIH AD 噻 （ i30>:K=1:AD$<0)="■ 

110 FOR A0=lcH33BD TO lcH34BF STEP 2 

120 A=PEEK(AD) +PEEK(AD+ I) 1256 

138 ADt(K)=RIGHT$< 1 000 ll *HEX$(A) ,4)+* • 

148 IF ACIcH7FFF THEN 160 

ige A=PEEK(Ai+!)+PEEK(A+2)^256sAD$(K>=AD$(K)+RI6HT$< ,, 000 l, + HEX$(A) ,4) 

140 K=K+1sNEXT 

170 A=ASC(_A_> :AD=leH34F5 

180 KW$=CHR$(A) 

190 KW=PEEK(AD) sIF KW=0 THEN A=A+1:AD=AD+1 sGOTO 180 
280 IF KW<fcfH30 THEN KW^=KW$+CHR^(KW) : AO=AD+1 sGOTO 190 
218 KW$=KWf + CHR$ (KW-&H88) : AD=AO+1:C=PEEK(AD) 

220 IFC<lcH80 THEN C$= a FF *+HEX$(C+^H80) : ACt= B * *+CHR$(C+l€H30) :60T0258 
230 C^HEX$(C) :IF C<lcHF8 THEN AC$=CHR$<C) ELSE AC$=” ノ 
249 IF ASC(KW$)=I^H5B THEN KWf=MID$(KW$,2) 

260 IF C<fccH2E THEN K=C+&H55:G0T0 270 

26% IF C>li_ AND CC&HD6 THEN K=C-lcH80 ELSE K=8 

278 LPRINT KW$TAB(8) CtTAB< 15)AC$TAB( 1?>AW(K) 

280 A0=A0*1:IF A0<lcH37BB THEN 180 




F 3 F 1 4 7 

7 B o E c E 
7 7 7 0 0 0 
2 2 2 F F F 


F 0 F 4 

2 c D c 

3 5 3 6 

4 4 4 4 



6 E 5 
8 8 9 


E 

9 


F 81345 c 6 

9AAAAA89 


8FFFtK7F2FAy2BA6FFFFFF 


E 

し 

o E R D E 


N 


F F 8 5 4 6 B 
F F B 8 8 8 A 


R 


or#psstaa:> し tgl 冬 o A s 

DSNCrrTDEN o hrEO^RNNBISDSRDLTMF 
tNBTSUTCEOLOLL^SISDMUUOHMOAIE 

Ar AAAAABBCCCCCCCCUCD&cccocCM DD 
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2686 
3iAl 
32FC 
52 7A 

54DF 


4396 

4397 


3350 

0DB8 

F10B 1875 


5553 

0843 

56B3 

FI171875 


B 

脅 


X 

円 

% 


月 


0705 



4939 
I 4530 
4302 
1 45A3 

テ F150 
+ 45C0 

7 468C 

L F147 
•_ 552? 

•I 3283 
X 5AED 
サ FI1A 
丄 432A 

、 439C 

ノ F156 
メ F14A 


E20D 


E0 1 


1875 


E109 

DE3D 


PRESET 

POINT 

READ 

RUN 

RESTORE 

RETURN 

REMOUE 

REM 

RESUME 

RSET 

RIGHT 嚷 

RND 

RENUM 

RBYTE 

STOP 

SWAP 

SET 

SAME 

SPC< 

STEP 

SGN 

SQR 

SIN 

STR ， 

STRING 弟 

SPACE ， 

STATUS 

SRQ 

TRON 

TROFF 

TAB く 

TO 

THEN 

TAN 

TERM 

TALK 

TIME 本 

USING 

USR 

VA し 

MARPTR 

WIDTH 

WAIT 

WBYTE 

XOR 

♦ 


GET 

HEX 冬 

INPUT 

IF 

INSTR 
I NT 
INP 
IMP 
INIT 
INKEY ， 
I SET 
I RESET 
IEEE 1 

KI しし 

KEY 

LET 

LOCATE 

LINE 

LOAD 

LSET 

し PRipT 

LLIST 

し POS 

LISTEN 

LIST 



1886 

5275 

48DA 

4702 

283F 

56A1 

2262 

F105 1875 
F108 1375 


F141 DDDE 

1343 

45DE 

0792 

487? 

FI38 DDF0 
F144 E012 
473A 
5707 
5074 

F10E 1875 
570C 

F126 E27F 
2503 

F0EO E823 

5480 

54F? 

F0F0 E83B 
F153 £203 
F13B DDF1 

F0F3 E1D2 
F0F6 £105 
F0F9 E1D8 
5532 
0DA1 
0D5D 

Fill 1875 
4A08 

F13E DB84 
3DE0 

56AD 

4642 

F0FF 0806 

5270 

1891 

5918 

4742 

5079 

5911 

29F9 

FI14 1875 
8688 


レ • • 


tr 



nA ラ y • カソ ♦4:0 



-X/A ¥ / > = < 


匕 •丁 E R 

J T N 6 拿^參嚷〇 T E 

IGCNFF 3 rdisddtntxmwtt 

rooEEOOEOKKKIO&AEAEOU 
ししし l し lhmmmhhmhh 2 nknno 


z 聲 k t l t 

E TTKISERLE 

N p R c u o R o E o o s 

I VJ 3 J 


28 4 7 9 3 8 D 4 
88 8 8 8 9 9 8 9 

0F7^CE3F71FF^-B0492DAFFFF1F ED 23978 F6FA2BF506CA 34567 £4 0 12 
BE38B8D3ADFF^B?ACDD^FFFFEFEEAADDDFBBEEDFEA?BFFFFFFFEFFF 


rx • 


TT 


f 


X t 


7 11 


Ml 


チ 


f 


フ 


t ? 梦 1 


ケキ，■ホ I 


名 


_ n 7 


$ 


5 0 
8 9 


c 

E 


D 


SO1 妙 


B c D 3 
A A A 8 


9 

9 


i 7 
99 


% 


7F5B3FFC4?DEFF485FB0DEF133FFFFF4CDFFFF9703E4EC5 59F881FFF^n^ 
CF88EFFFDEBBFCB8DAC099FC90FFFFFCCFFFFFBBC8C9D99CFFC99FFFBB 
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6 演算順位表 


I . () でくくられた式 

2 . べき乗 A ^ 2 . A 2 

3. 負数 
4 .来1 
5. ¥ 

6 . mod 

7 • + — 

8. 条件判定 

9. NOT 

10. AND 

II. OR 

12, XOR 

13, IMP 

14, EQV 

演算は、同順位の場合、左から右へ順に行なわれます 



7 キャラクタ•コード表 ( ASCII コード表) 


American Standard Code for Information Interchange 


注 1)ASCII •… 

( アスキー） 

注 2) 7 BH 〜 7 EH ，94 H ，97 H は対応するキーがありませんので、画面やプリンタなどに出 
力する場合は、 CHR $ 関数を用いる必要があります。 


print chr$(&H7B) 


プリンタの場合 lprint chr$( &H7B ) 


注 3) コントロールコード部分 （ 00H 〜 1FH) については、コントロールコードの項をご 
覧ください。 


■ 

□ 

1 

1 

2 

3 

_s 

4 

_ 

5 

6 

IB 

□ 

■ 

EM 


□ 

■ 

B 

■ 

H 

n 

S H 

〇 1 


D 

□ 


□ 

D 


sx 

d 2 


□ 

□ 

m 

□ 

D 


E X 

d 3 

□ 

- - — ! 

3 

C 

_- 

s 

H 


□ 

Et 

M 

El 

B 

m 

B 

D 

D 


e q 

Nk 

% 

5 

E 

u 

e 

u 

m 



& 

6 

F 

□ 

f 

V 


Bl 

Eb 

D 

H 

m 


IH 


m 

B S 

C N 

■ 

□ 

Q 

D 

n 

■ 

i 

h t 

Em 

■ 

B 

D 

□ 

H 

H 

□ 

BS 

S B 

D 

■ 

D 

B 

B 




Ec 


■ 

K 

■ 

■ 

■ 

B 

圃 

B 

■ 

B 

L 

B 

n 

ill 

m 

C R 

■ 

■ 

■ 

M 

■ 

E9 

i 

B 

So 

1 

1 



N 

■ 


■ 

回 

m 


I 

■ 

B 

0 


IH 

■ 






地 


下位4ビ 
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注：この付録に記載されている N - BASIC.Disk BASIC インタプリタおよびワークエリア 
等のアドレス•機能は、システムソフトが独自に解析したものであり、運用上の影響に 
ついては、責任を負いかねますのでご了承ください。 
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索弓 I 


* 


A 

AUTO . . 203 

B 

BASIC.13-101-112-174 

BEEP. 192 

C 

CHR$(0). 194 

CMD. 178 

COLOR. 193 

CSRLIN. 72 

D 

DATA. 187 

DATA のランダムアクセス . 206 

DATE$. 192 

DEFFN. 163 

DEFINT . . 213 

DEFUSR. 163 

DELETE. 204 

DIM.209 

DMA. 192 

Disk BASIC. 123 

E 

ERASE. 209 

F 

FAT. 136 

FACC. 169 

FIELD. 150 

FIX. ……•…211 

G 

GET @. 61 

GOTO.191 

I 

I/O ポート .243 

ID . . 135 

INKEY$. …88 

INP. 88 

INPUT. 86 

INPUTS. 87 

INT. 211 

IPL••，....125 

IRESET. 179 

ISET. 179 


K 

KEY WORD. 19 

KEY LIST. 81 

し 

LEFT$ . .214 

LINE INPUT. 87 

LIST.204 

LPRINT. 112 

LPRINT サブルーチン .119 

M 

MID$.214 

MOTOR.192 

MOD と ¥ . 59 

MP-80.117 

MP-82. 115 

P 

PC-8023 .113 

POKE. 110 

POS. 72 

PRINT. 54 

PRINTUSING. 55 

PUT®. 61 

R 

REM . . .185 

RENUM . 45 

RESTORE..208 

RIGHT$.214 

ROM.. 13 

RUN. 104 

T 

TAB. 57 

U 

USR 関数 . 164 

V 

VARPTR. 202-203 

VRAM. 49 

W 

WAIT... 90 

WIDTH. 49 

ア行 

アセンブラ . . .167 
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ァトリビュート . 

ァトリビュートエリァ . 

アドレスマップ . 

アペンド . 

アンリスト . 

エラーコード . 

エラ ーメッセージ . 

オートスタート（テープ）… 
力行 

漢字ドット . 

画面表示消去 .*. 

画面リバース . 

キャラクタフォント . 

キー人力 . . 

キー選択 . 

キーフラグ . 

機械語 . 

機械語サブルーチン . 

行番号 . 

グラフ作成 . 

コントロ ーノレキ . . 

コントロ ールコ—ド .. 

サ行 

処理ルーチン . 

シークレットファイノレ .. 

シークレットメッセージ • • 1 

識別コード . 

システムディスク . 

ジャンプテーブル . 

数値のメモリ表現 . 

数値•文字列変換 . 

数値型引数 . 

スクリーンコピー . 

スクロール. . 

ストリングディスタリブタ 

難… .. 

夕行 

単純変数 . 

中間言語 . 

テ•、ィスクオートスタート 

ディスクダンプ . 

ディスクフアイル . 


…•‘ 52 
…52 
. 50 

*". ， A ^ 

79 

…169 
…"169 
. 104 

……71 
……73 

. 193 

……70 

. 81 

. 85 

……83 
159*167 
……167 
……188 
……75 
……92 
……92 

……24 
……146 

. 176 

……28 

. 140 

*25-241 

. 198 

• 212 

. 109 

. 107 

. 109 

•…30.33 

■135-139 

. 28 

. 19 

. 180 

. 132 

. 125 


ディスクメモリ修正 . 145 

ディレクトリ . 134 

データ ディスク . 140 

データフォ ー マット .. 99 

データマ トリックス . 77 

ドットグラフィックス . 如 

ナ行 

ヌルストリング . 194 

ハ行 

配列宣言 . 63 

配列変数 . 30 

バッファ領域 . 127 

ノマラメータ . 160 

ハ 。 スヮード . 9〇 

ビットイメ — ジ ... 

ファイル転送— * .*. 139 

ファイルデザインシート . 150 

ファイルの LOCATION . 138 

ファイルバッファ … ... 127 

フアイルネ ー ムソート . 155 

ファンクシヨンキー . 81 

y 1) —ェリア.， . *. 36 

プリンタ . 107 

プログラムの格納 ** . 16 

プログラムの回復 . 18 

プログラムの口ード… . 41 

ブロック転送 . *174 

へッダ—. . 99*100 

ポインタ . 14 

マ行 

メモリマップ . .. . . …… 13 

メモリタンフ °". .*.* 39 

文字変数 . 33 

文字型引数 . 171 

文字列分解 .. 214 

モニタ . 159 

ヤ行 

ユーザーズ ェリア . 14.127 

ラ行 

両面使用 . 154 

リンクポインタ . 16 

ヮ行 

ワークエリア . 自 13 
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行できるのが特徴です。 


〈主要目次〉 

鲁家庭財政プログラム 
• 自動車関連プログラム 
♦ キッチン • プログラム 
參家庭のスケジュール管理 
♦多目的検索プログラム 
_ 家庭教育•学習プログラム 
春単位交換プログラム 
拳レクリェーション • プログラム 
•ホビイスト日誌 


「 8086 入門」 

ステフアンモールス著 

内藤祥雄訳 

A 5判、218ぺ-ジ、定価2,900円 


16ビット_プロセッサ8086のアーキテクチャ、システム 
設計、プログラミング法を初めて紹介。 

著者は8086 プロセッサの 設計者で、8086 の すべてを網羅。 
マイクロプロセッサの 説明から始まり、肋86 の 構造、シ 
ステムの基本設計、さらにアセンブラ言語および高級言語 
によるプログラミング法を解説。豊富な例とイラストでわ 
かりやすく説明されているため、初心者、専門家ともに利 
用価値大。 


発刊予定 ^)- 

「 BASIC ビジネス 
プログラム 集」 

B5 判、予価2,900円 


《主要目次〉 

參8086 のアーキテクチャ 
_ 8086 の命令セット 
鲁8086 のシステム設計 
*8086 のアセンブリ言語 
» 8086 の高級言語 


「 BASIC ホームコンピュータプログラム集」に続く本格的ビ 
ジネス版/パソコンで事務処理を行なうための実用的ビジ 
ネス • アブリケーションを約35種類掲載。 

<主要目次〉 

第 1 部財務管理と財務分析 
參簡易薄記システム 
拳受取勘定システム 
春財務プ D グラム 


第 2 部在摩管理と在庫分析 
參汎用在庫システム 
春定期在庫システム 
參在摩プログラム 

第 3 部生産計画と生産管理 
♦生産プログラム 
* 製造原価計算 
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